anchor.diff:          'dishes:run-time-symbol-reader)
       (not (eq (test-read "[dishes run-time-symbol-reader]")
                'dishes:run-time-symbol-reader))
  -    (eq (test-read/suppress1 "[undefined-packag%% foo] bar")
  +    (eq (test-read/suppress1
  +         "[undefined-packag%%:undefined-package%% undefined-package%%:foo] bar")
           'bar)))
   
   (define-reader-test (#\^) dishes:thunk-reader
     (each
       (equal (car (test-read "^(progn (print 'baz))"))
              'lambda)
  -    (equal (test-read/suppress1 "^(progn (print 'baz)) foo")
  +    (equal (test-read/suppress1 "^(progn (print 'undefined-package%%:baz)) foo")
              'foo)))
   
   (define-reader-test (#\/) dishes:unescapable-string-reader
  
positive.code:   (each
      (= 1
         (test-read "#; foo
  foo
  1"))
      (= 2
         (test-read/suppress1 "#; foo
  foo
  1
  2
  "))
      (= 2
         (test-read "#; foo
  #+(or)
  foo
  1
  2
  "))))
  
  
negative.code:              (test-read "$bar")))
      (string= (test-read "$bar")
               'bar)
      (eq (test-read/suppress1 "$undefined-package%%:bar foo")
          'foo)))
  