Index: /branches/ide-1.0/ccl/hemlock/src/morecoms.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/morecoms.lisp	(revision 6774)
+++ /branches/ide-1.0/ccl/hemlock/src/morecoms.lisp	(revision 6775)
@@ -435,9 +435,8 @@
   "Print info on current point position"
   (declare (ignore p))
-  (time
   (let* ((point (current-point))
          (current-line (mark-line point)))
     (let* ((line-number (do* ((l 1 (1+ l))
-                              (mark-line (mark-line point) (line-previous mark-line)))
+                              (mark-line (line-previous (mark-line point)) (line-previous mark-line)))
                              ((null mark-line) l)))
              (charpos (mark-charpos point))
@@ -446,5 +445,5 @@
              (size (count-characters (buffer-region (current-buffer)))))
         (message "Char: ~s point = ~d of ~d(~d%) line ~d column ~d"
-                 char abspos size (round (/ (* 100 abspos) size)) line-number charpos)))))
+                 char abspos size (round (/ (* 100 abspos) size)) line-number charpos))))