Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5577)
+++ /trunk/ccl/lib/macros.lisp	(revision 5578)
@@ -1383,5 +1383,5 @@
                         (%make-string-output-stream ,string-var)
                       ,@(if element-type-p
-                            `((make-string-output-stream :element-type ',element-type))
+                            `((make-string-output-stream :element-type ,element-type))
                             `((make-string-output-stream))))))
          ,@decls