From 896151dbef16e8e96ae8bf870c45bde85b7e47d3 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Wed, 7 May 2008 08:20:22 +0000
Subject: [PATCH] *** empty log message ***

---
 src/clos/streams.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index 627a0878a..60543d47a 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 string :start start :end end))
+  (cl:write-string string stream :start start :end end))
 
 
 ;; TERPRI