Index: /branches/ide-1.0/ccl/hemlock/src/streams.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/streams.lisp	(revision 6606)
+++ /branches/ide-1.0/ccl/hemlock/src/streams.lisp	(revision 6607)
@@ -95,6 +95,8 @@
 (defun hemlock-output-unbuffered-sout (stream string start end)
   (with-left-inserting-mark (mark (hemlock-output-stream-mark stream))
-    (insert-string mark string start end)
-    ))
+    (unless (and (eql start 0)
+                 (eql end (length string)))
+      (setq string (subseq string start end)))
+    (insert-string mark string)))
     
 
@@ -112,12 +114,4 @@
   (hemlock-output-unbuffered-sout stream string start end))
 
-#+NIL
-(defmethod excl:stream-line-length ((stream hemlock-output-stream))
-  (let* ((buffer (line-buffer (mark-line (hemlock-output-stream-mark stream)))))
-       (when buffer
-	 (do ((w (buffer-windows buffer) (cdr w))
-	      (min most-positive-fixnum (min (window-width (car w)) min)))
-	     ((null w)
-	      (if (/= min most-positive-fixnum) min))))))
 
 (defmethod stream-finish-output ((stream hemlock-output-stream)))