Index: /trunk/source/cocoa-ide/hemlock/src/edit-defs.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 13426)
+++ /trunk/source/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 13427)
@@ -57,4 +57,6 @@
             (move-mark mark2 mark1)
             (form-offset mark2 1))))
+    (loop until (or (mark= mark1 mark2) (not (eql (previous-character mark2) #\:)))
+          do (mark-before mark2))
     (unless (mark= mark1 mark2)
       (region-to-string (region mark1 mark2)))))