Index: /branches/ide-1.0/ccl/hemlock/src/command.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/command.lisp	(revision 6696)
+++ /branches/ide-1.0/ccl/hemlock/src/command.lisp	(revision 6697)
@@ -51,13 +51,9 @@
 
 (defcommand "Quoted Insert" (p)
-  "Read a character from the terminal and insert it.
-  With prefix argument, insert the character that many times."
+  "Causes the next character typed to be inserted in the current
+   buffer, even if would normally be interpreted as an editor command."
   "Reads a key-event from *editor-input* and inserts it at the point."
-  (let ((char (hemlock-ext:key-event-char (get-key-event *editor-input* t))))
-    (unless char (editor-error "Can't insert that character."))
-    (let* ((point (current-point-for-insertion)))
-      (if (and p (> p 1))
-	(insert-string point (make-string p :initial-element char))
-	(insert-character point char)))))
+  (declare (ignore p))
+  (hi::enable-self-insert *editor-input*))
 
 (defcommand "Forward Character" (p)