Index: /trunk/ccl/hemlock/src/command.lisp
===================================================================
--- /trunk/ccl/hemlock/src/command.lisp	(revision 773)
+++ /trunk/ccl/hemlock/src/command.lisp	(revision 774)
@@ -24,5 +24,5 @@
       :buffer buff
       :value ring)
-    (ring-push (copy-mark (buffer-point buff) :right-inserting) ring)))
+    (setf (hi::buffer-%mark buff) (copy-mark (buffer-point buff) :right-inserting))))
 
 (add-hook make-buffer-hook #'hcmd-new-buffer-hook-fun)