[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv4589

Modified Files:
	presentation-defs.lisp 
Log Message:
Fix from Mike Watters.



--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2008/05/27 13:15:36	1.78
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2009/01/21 06:43:15	1.79
@@ -982,7 +982,7 @@
                                        &allow-other-keys)
   (setf (stream-input-buffer stream)
         (replace (make-array (- end start) :fill-pointer (- end start))
-                 string :start1 start :end2 end)))
+                 string :start2 start :end2 end)))
 
 (defmethod stream-element-type ((stream string-input-editing-stream))
   'character)