Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 538)
+++ /trunk/ccl/lib/macros.lisp	(revision 539)
@@ -1256,5 +1256,5 @@
 	,@(if index `((setf ,index (string-input-stream-index ,var))))))))
 
-(defmacro with-output-to-string ((var &optional string &key (element-type 'base-char))
+(defmacro with-output-to-string ((var &optional string &key (element-type 'base-char element-type-p))
                                  &body body 
                                  &environment env)
@@ -1262,5 +1262,5 @@
     `(let ((,var ,(if string
                     `(%make-string-output-stream ,string)
-                    `(make-string-output-stream :element-type ',element-type))))
+                    `(make-string-output-stream :element-type ,(if element-type-p element-type `'base-char)))))
        ,@decls
        (unwind-protect