Index: output.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/rmrs/output.lisp,v
retrieving revision 1.37
diff -i -w -u -r1.37 output.lisp
--- output.lisp	28 Jul 2007 21:05:09 -0000	1.37
+++ output.lisp	25 Apr 2008 19:44:28 -0000
@@ -58,11 +58,11 @@
     (princ (or cto -1) stream) ;; [bmw] could this be made optional?
     (write-char #\' stream)
     (when surface
-      (write-string " surface='")
+      (write-string " surface='" stream)
       (xml-escaped-output surface stream)
       (write-char #\' stream))
     (when ident
-      (write-string " ident='")
+      (write-string " ident='" stream)
       (xml-escaped-output ident stream)
       (write-char #\' stream))
     (write-char #\> stream)
