Index: /branches/ide-1.0/ccl/hemlock/src/htext2.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/htext2.lisp	(revision 6601)
+++ /branches/ide-1.0/ccl/hemlock/src/htext2.lisp	(revision 6602)
@@ -216,10 +216,10 @@
 	 (last-line (mark-line end)))
     (if (eq first-line last-line)
-	(- (mark-charpos end) (mark-charpos start))
-	(do ((line (line-next first-line) (line-next line))
-	     (count (1+ (- (line-length* first-line) (mark-charpos start)))))
-	    ((eq line last-line)
-	     (+ count (mark-charpos end)))
-	  (setq count (+ 1 count (line-length* line)))))))
+      (- (mark-charpos end) (mark-charpos start))
+      (do ((line (line-next first-line) (line-next line))
+           (count (1+ (- (line-length* first-line) (mark-charpos start)))))
+          ((eq line last-line)
+           (+ count (mark-charpos end)))
+        (setq count (+ 1 count (line-length* line)))))))
 
 (defun line-start (mark &optional line)