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))))