diff --git a/code/stream.lisp b/code/stream.lisp
index 2db3d1ba18e06f5d708eb02eafc0f8921c8381e0..289466107d7e219f1511f43391c6835b44227ea1 100644
--- a/code/stream.lisp
+++ b/code/stream.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.63 2003/06/18 09:23:10 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.64 2003/07/30 16:51:43 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1439,7 +1439,7 @@ output to Output-stream"
 		      (sout #'string-sout)
 		      (misc #'string-out-misc))
 	    (:print-function %print-string-output-stream)
-	    (:constructor make-string-output-stream ()))
+	    (:constructor %make-string-output-stream ()))
   ;; The string we throw stuff in.
   (string (make-string 40) :type simple-string)
   ;; Index of the next location to use.
@@ -1449,9 +1449,11 @@ output to Output-stream"
   (declare (ignore s d))
   (write-string "#<String-Output Stream>" stream))
 
-(setf (documentation 'make-string-output-stream 'function)
+(defun make-string-output-stream (&key (element-type 'character))
   "Returns an Output stream which will accumulate all output given to it for
-   the benefit of the function Get-Output-Stream-String.")
+   the benefit of the function Get-Output-Stream-String."
+  (declare (ignore element-type))
+  (%make-string-output-stream))
 
 (defun string-ouch (stream character)
   (let ((current (string-output-stream-index stream))
diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 1af58d9bd363d20850da79f6e6285bea0c32c28f..1ebf859c0ccf0965f474006302eeb84d8c9737df 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.119 2003/07/19 15:30:30 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.120 2003/07/30 16:51:43 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -820,7 +820,9 @@
 (defknown make-two-way-stream (stream stream) stream (flushable))
 (defknown make-echo-stream (stream stream) stream (flushable))
 (defknown make-string-input-stream (string &optional index index) stream (flushable unsafe))
-(defknown make-string-output-stream () stream (flushable))
+(defknown make-string-output-stream (&key (:element-type type-specifier))
+  stream
+  (flushable))
 (defknown get-output-stream-string (stream) simple-string ())
 (defknown streamp (t) boolean (movable foldable flushable))
 (defknown stream-element-type (stream) type-specifier (movable foldable flushable))