Index: /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp	(revision 15331)
+++ /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp	(revision 15332)
@@ -2318,5 +2318,5 @@
   "Insert a space, then show the current function's arglist."
   (declare (ignore p))
-  (let ((point (current-point)))
+  (let ((point (current-point-for-insertion)))
     (insert-character point #\Space)
     (pre-command-parse-check point)