anchor.diff:             (insert *minibuffer* prompt)
              (setf (buffer-property *minibuffer* 'minibuffer-prompt-end) 
                                     (copy-mark (buffer-point *minibuffer*) :left))
  +
              (when default-text
                (insert *minibuffer* default-text))
              (catch 'minibuffer-result
  -             (editor-loop)))
  -      (switch-to-buffer old-buffer))))
  +             (handler-case
  +              (editor-loop)
  +              (error (e) 
  +                (setf *minibuffer-history-number* 0)
  +                (error e)))))
  +      (switch-to-buffer old-buffer))))x
   
   
   (defun minibuffer-yes-or-no-p (&optional control &rest arguments)
  
positive.code: (in-package :med)
  
  ;;; Minibuffer stuff.
  
  (defun fix-minibuffer-point-position-hook ()
    (when (mark< (buffer-point *minibuffer*)
  
negative.code: 
  (defun minibuffer-finish-input-command ()
    (move-end-of-buffer *minibuffer*)
    (let ((string (buffer-string *minibuffer*
                                 (buffer-property *minibuffer* 'minibuffer-prompt-end)
                                 (buffer-point *minibuffer*))))
    (when (> (length string) 0)
      (push string *minibuffer-history*))
    (setf *minibuffer-history-number 0)
    (throw 'minibuffer-result string)))
  
  (defun minibuffer-previous-history-command ()
    (when (< *minibuffer-history-number* (length *minibuffer-history*))
      (move-end-of-line *minibuffer*)
      (delete-region *minibuffer*
                     (buffer-property *minibuffer* 'minibuffer-prompt-end)
                     (buffer-point *minibuffer*))
      (insert *minibuffer* (nth *minibuffer-history-number* *minibuffer-history*))
      (incf *minibuffer-history-number*)))
  
  (defun read-from-minibuffer (prompt &optional default-text)
    "Read a string from the minibuffer."
  