anchor.diff:          (define-dummy-reply nil (a)
             (flag :a))
           (call-dummy-message a)
  -        (check :a-before :a)))
  +        (check "One primary, one :before, specialized on the same object" :a-before :a)))
       (with-dummy-message (x)
         (with-flag-stack
           (define-dummy-reply (:before) (b)
  
positive.code:         (define-dummy-reply nil (a)
            (flag :a))
          (call-dummy-message b)
          (check :b-before :a)))
      (with-dummy-message (x)
        (with-flag-stack
          (define-dummy-reply (:before) (b)
  
negative.code:         (define-dummy-reply nil (a)
            (flag :a))
          (call-dummy-message a)
          (check "One primary, one :before specialized on the same object, and ~@
                  one :before which shouldn't be running" :a-before :a)))))
  
  (test standard-combination-after
    (with-object-hierarchy (a (b a))
  