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