1.0.31.25: fix thinko in ECHO-N-BIN

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 4158071..9003e42 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1129,7 +1129,7 @@
     ;; not work either.
     (when (echo-stream-unread-stuff stream)
       (let* ((char (read-char stream))
-             (octets (octets-to-string
+             (octets (string-to-octets
                       (string char)
                       :external-format
                       (stream-external-format