[bknr-cvs] r1861 - branches/xml-class-rework/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-19 12:51:45 -0600 (Sun, 19 Feb 2006)
New Revision: 1861

Modified:
   branches/xml-class-rework/bknr/src/web/templates.lisp
Log:
Boy, _this_ is hard on a Sunday evening.


Modified: branches/xml-class-rework/bknr/src/web/templates.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:50:29 UTC (rev 1860)
+++ branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:51:45 UTC (rev 1861)
@@ -14,7 +14,7 @@
 (eval-when (:load-toplevel :execute)
   (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*)))
     (when env-catalog
-      (pushnew *template-dtd-catalog* env-catalog :test #'equal))))
+      (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal))))
 
 ;; user-error is supposed to be raised when an error is provoced by
 ;; the user (i.e. by supplying invalid form data).