Index: /trunk/ccl/hemlock/src/htext2.lisp
===================================================================
--- /trunk/ccl/hemlock/src/htext2.lisp	(revision 737)
+++ /trunk/ccl/hemlock/src/htext2.lisp	(revision 738)
@@ -20,4 +20,6 @@
 
 (defun maybe-update-selection (mark)
+  mark
+  #+nil
   (let* ((line (mark-line mark))
 	 (buffer (if line (line-%buffer line)))