anchor.diff:  	  (select-query *accepting-values-stream* query (record query))
   	  (let ((command-ptype '(command :command-table accept-values)))
   	    (if (cdr query-list)
  -	      (throw-object-ptype `(com-select-query ,(query-identifier
  -						       (cadr query-list)))
  -				  command-ptype)
  -	      (throw-object-ptype '(com-deselect-query) command-ptype))))))))
  +		(throw-object-ptype `(com-select-query ,(query-identifier
  +							 (cadr query-list)))
  +				    command-ptype)
  +		(throw-object-ptype '(com-deselect-query) command-ptype))))))))
   
   (define-command (com-deselect-query :command-table accept-values
   				    :name nil
  
positive.code: 
  (defmethod finalize-query-record (query (record av-text-record))
    (let ((estream (editing-stream record)))
      (when (and (snapshot record)
  	       (not (equal (snapshot record)
  			   (stream-input-buffer estream))))
        (let* ((activation-gestures (apply #'make-activation-gestures
  					 :existing-activation-gestures
  					 (activation-gestures query)
  
negative.code: 	    (values (value query) (ptype query) (changedp query))
  	  (setf (default query) default)
  	  (setf (ptype query) type)
  	  #+nil (setf (changedp query) nil))))))
  
  
  (defmethod prompt-for-accept ((stream accepting-values-stream)
  