X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=base.lisp;h=7054761ea88fbf77243537dc57faacfb4d0faa46;hp=ecfd2792acf2cae51df83376542d717e0ceb7ebb;hb=5c64ed6c6024c426b9922f5d3d6f92134fe91cf5;hpb=1c71d374606cbbc92dbffdea09292c2acf0755af

diff --git a/base.lisp b/base.lisp
index ecfd279..7054761 100644
--- a/base.lisp
+++ b/base.lisp
@@ -79,7 +79,7 @@
 (defmacro html-file-page ((out-file &key (format :xhtml11))
 			  &body body)
   `(with-open-file (*html-stream*
-		    (lml-file-name ,out-file :output)
+		    (lml-file-name ',out-file :output)
 		    :direction :output
 		    :if-exists :supersede)
      (dtd-prologue ,format)