diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index 83ce5f783..0671cef63 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -481,7 +481,7 @@
 	      (return (values (si::shrink-vector res index) t)))
 	     (t
 	      (when (char= ch #\newline)
-		(return (values (shrink-vector res index) nil)))
+		(return (values (si::shrink-vector res index) nil)))
 	      (when (= index len)
 		(setq len (* len 2))
 		(let ((new (make-string len)))