anchor.diff:        :lambda-list ',ll
         :participants (list ,@participants)
         :documentation ,docstring
  -      :function ,(make-reply-lambda name ll body)
  -      :body '(block ,name ,@body))))
  +      :function ,(make-reply-lambda name ll body))))
   
   (defun make-reply-lambda (name lambda-list body)
     (let* ((msg (find-message name nil))
  
positive.code:        (ensure-reply reader
                       :lambda-list '(sheep)
                       :participants (list sheep)
                       :body `(property-value sheep ',prop-name)
                       :function (eval (make-reply-lambda reader
                                                          '(sheep)
                                                          `((property-value sheep ',prop-name)))))))
  
negative.code:                        participants
                         message
                         function
                         (documentation ""))
    (let ((reply (%make-reply
                  :message message
                  :lambda-list lambda-list
                  :qualifiers qualifiers
                  :function function
                  :documentation documentation)))
      (remove-specific-reply message qualifiers participants)
      (add-reply-to-message reply message)
  