Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 316)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 317)
@@ -1439,5 +1439,5 @@
 (defun make-string-output-stream (&key (element-type 'character element-type-p))
   (when (and element-type-p
-             (not (member element-type '(base-character character string-char
+             (not (member element-type '(base-character character
                                          standard-char))))
     (unless (subtypep element-type 'character)
@@ -1445,5 +1445,5 @@
              :element-type element-type 'character)))
   (make-instance 'string-output-stream
-                 :string (make-array 10 :element-type 'character
+                 :string (make-array 10 :element-type 'base-char
                                      :fill-pointer 0
                                      :adjustable t)))