Index: /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp
===================================================================
--- /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp	(revision 7931)
+++ /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp	(revision 7932)
@@ -441,13 +441,11 @@
   (when (ps-result ps)
     (* (ps-sign ps)
-       (expt (value universal-argument-default) (ps-multiplier ps))
        (if (ps-read-some-digit-p ps)
 	 (ps-result ps)
-	 1))))
+	 (expt (value universal-argument-default) (ps-multiplier ps))))))
 
 (defun note-prefix-argument-set (ps)
   (assert (ps-result ps))
   (setf (ps-set-p ps) t)
-  #+GZ (log-debug "Note prefix argument set: ~s" ps)
   (message (with-output-to-string (s)
 	     (dotimes (i (ps-multiplier ps))