X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=4d7a5f4fda3462b1596177aca662187a3626c206;hb=1a8630e624d234cfc39a9c1b360b6bbc2695da7b;hp=5a51d4f31cb694ce04a98839510ef1248be17e6a;hpb=bdb5b67ddd98be246d7f8c4787b4c655792884ad;p=lml.git

diff --git a/base.lisp b/base.lisp
index 5a51d4f..4d7a5f4 100644
--- a/base.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.23 2003/06/20 08:35:22 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -253,7 +253,7 @@
 
 (defmacro page (out-file &body body)
   `(with-open-file (*html-output*
-		    (lml-file-name ,out-file :output)
+		    (lml-file-name ',out-file :output)
 		    :direction :output
 		    :if-exists :supersede)
      (xhtml-prologue)