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

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-19 12:53:22 -0600 (Sun, 19 Feb 2006)
New Revision: 1862

Modified:
   branches/xml-class-rework/bknr/src/web/templates.lisp
Log:
(...)


Modified: branches/xml-class-rework/bknr/src/web/templates.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:51:45 UTC (rev 1861)
+++ branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:53:22 UTC (rev 1862)
@@ -14,7 +14,7 @@
 (eval-when (:load-toplevel :execute)
   (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*)))
     (when env-catalog
-      (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal))))
+      (pushnew (cdr env-catalog) *template-dtd-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).