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, and ~@
  +                one :before which shouldn't be running" :a-before :a)))))
   
   (test standard-combination-after
     (with-object-hierarchy (a (b a))
  
positive.code:         (define-dummy-reply nil (a)
            (flag :a))
          (call-dummy-message b)
          (check :a :b-after)))
      (with-dummy-message (x)
        (with-flag-stack
          (define-dummy-reply (:after) (b)
  
negative.code:         (define-dummy-reply nil (a)
            (flag :a))
          (call-dummy-message a)
          (check "One primary, and one :around wrapping it" :around-entry :a :around-exit)))
      (with-dummy-message (x)
        (with-flag-stack
          (define-dummy-reply (:around) (b)
  