diff --git a/code/stream.lisp b/code/stream.lisp
index 438aa6ee09ea9d53ca86a65a79135ef1e0e22790..a59b834844a3a47da9dde811e78c9d20e495c311 100644
--- a/code/stream.lisp
+++ b/code/stream.lisp
@@ -851,11 +851,11 @@
     (setf (string-output-stream-index stream) dst-end)))
 
 (defun string-out-misc (stream operation &optional arg1 arg2)
-  (declare (ignore arg1 arg2))
+  (declare (ignore arg2))
   (case operation
     (:file-position
      (if (null arg1)
-       (string-output-stream-index stream)))
+	 (string-output-stream-index stream)))
     (:charpos
      (do ((index (1- (the fixnum (string-output-stream-index stream)))
 		 (1- index))