anchor.diff:       ((and comp-flag *completion-window*)
         (let ((*current-window* *completion-window*))
           (set-buffer (car *buffer-list*)))))
  +    (push str *mb-read-log*)
       str))
   
   (defun read-string (prompt &optional initial)
  
positive.code:   (setq *mb-print-flag* t)
    (let ((str initial)
          (comp-flag)
          (one-window-p (one-window-p)))
      (do ((break nil))
          (break)
        (write-message (format nil "~a~a" prompt str))
  
negative.code: 
  (defvar *mb-win*)
  (defvar *mb-print-flag* nil)
  (defvar *mb-read-log* nil)
  
  (defun mb-init ()
    (setq *mb-win*
  