anchor.diff:  			   (length initial-string))
   		       initial-len)
   	       (incf nmatches)
  -	       (push (cons str obj) possibilities))))
  +	       (push (list str obj) possibilities))))
         (funcall generator initial-string #'suggester)
         (if (and (eql nmatches 1)
   	       (string-equal initial-string (caar possibilities)))
  
positive.code: 				    (action :complete)
  				    (predicate (constantly t))
  				    (name-key #'car)
  				    (value-key #'cadr))
    (flet ((generator (input-string suggester)
  	   (declare (ignore input-string))
  	   (do-sequence (possibility completions)
  
negative.code:   nil)
  
  (defun possibilities-for-menu (possibilities)
    (loop for (display object) in possibilities
          collect `(,display :value ,object)))
  
  (defun possibility-printer (possibility ptype stream)
  