Index: /trunk/ccl/hemlock/src/command.lisp
===================================================================
--- /trunk/ccl/hemlock/src/command.lisp	(revision 713)
+++ /trunk/ccl/hemlock/src/command.lisp	(revision 714)
@@ -141,7 +141,8 @@
 	(point (current-point)))
     (dotimes (i (abs arg))
-      (when (or (minusp arg) (end-line-p point)) (mark-before point))
+      (when (minusp arg) (mark-before point))
       (let ((prev (previous-character point))
 	    (next (next-character point)))
+
 	(cond ((not prev) (editor-error "No previous character."))
 	      ((not next) (editor-error "No next character."))