diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index d5eaeecc3..f44f50b17 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -516,7 +516,7 @@
   string)
 
 (defmethod stream-write-string ((stream ansi-stream) string &optional (start 0) end)
-  (cl:write-string stream))
+  (cl:write-string stream string start end))
 
 
 ;; TERPRI