Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5419)
+++ /trunk/ccl/lib/macros.lisp	(revision 5420)
@@ -1381,5 +1381,5 @@
       `(let* ((,string-var ,string)
               (,var (if ,string-var
-                        (%make-string-output-stream ,string)
+                        (%make-string-output-stream ,string-var)
                       ,@(if element-type-p
                             `((make-string-output-stream :element-type ',element-type))