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

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-19 12:50:29 -0600 (Sun, 19 Feb 2006)
New Revision: 1860

Modified:
   branches/xml-class-rework/bknr/src/web/templates.lisp
Log:
fix typo


Modified: branches/xml-class-rework/bknr/src/web/templates.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:49:24 UTC (rev 1859)
+++ branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-19 18:50:29 UTC (rev 1860)
@@ -12,7 +12,7 @@
                                  "/usr/local/share/xml/catalog.ports"))
 
 (eval-when (:load-toplevel :execute)
-  (let ((env-catalog (assoc :xmlcatalog exto:*environment-list*)))
+  (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*)))
     (when env-catalog
       (pushnew *template-dtd-catalog* env-catalog :test #'equal))))