anchor.diff:  			 default-supplied-p
   			 nil query-identifier)))
         (setf (record query) query-record)
  -      (when (condition query)
  -	(signal (condition query)))
  +      (when (accept-condition query)
  +	(signal (accept-condition query)))
         (multiple-value-prog1
   	  (values (value query) (ptype query) (changedp query))
   	(setf (default query) default)
  
positive.code: 	(handler-case
  	    (av-do-accept query record)
  	  (condition (c)
  	    (setf (condition query) c)))))))
  
  
  (defmethod deselect-query (stream query (record av-text-record))
  
negative.code: 		       :documentation "Binding of *delimeter-gestures* on entry
  to this accept")
     (accept-arguments :accessor accept-arguments :initarg :accept-arguments)
     (accept-condition :accessor accept-condition :initarg :accept-condition
  		     :initform nil
  		     :documentation "Condition signalled, if any, during
  accept of this query")))
  
  (defclass accepting-values-record (standard-updating-output-record)
  