anchor.diff:          (define-dummy-reply nil (a)
             (flag :a))
           (call-dummy-message b)
  -        (check :a :b-after)))
  +        (check "One primary and one :after specialized on a child" :a :b-after)))
       (with-dummy-message (x)
         (with-flag-stack
           (define-dummy-reply (:after) (b)
  
positive.code:         (define-dummy-reply nil (a)
            (flag :a))
          (call-dummy-message b)
          (check :a :a-after :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, one :after, specialized on the same object" :a :a-after)))
      (with-dummy-message (x)
        (with-flag-stack
          (define-dummy-reply (:after) (b)
  