diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl
index 7a65e01..fbcf500 100644
--- a/collects/tests/racket/contract-mzlib-test.rktl
+++ b/collects/tests/racket/contract-mzlib-test.rktl
@@ -4181,17 +4181,17 @@ so that propagation occurs.
   (test-name '(one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)) 
              (one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)))
   
-  (test-name '(subclass?/c class:c%) 
+  (test-name '(subclass?/c c%) 
              (let ([c% (class object% (super-new))]) (subclass?/c c%)))
   
-  (test-name '(implementation?/c interface:i<%>) 
+  (test-name '(implementation?/c i<%>) 
              (let ([i<%> (interface ())])
                (implementation?/c i<%>)))
   
-  (test-name '(is-a?/c interface:i<%>)
+  (test-name '(is-a?/c i<%>)
              (let ([i<%> (interface ())])
                (is-a?/c i<%>)))
-  (test-name '(is-a?/c class:c%) 
+  (test-name '(is-a?/c c%) 
              (let ([i<%> (interface ())]
                    [c% (class object% (super-new))])
                (is-a?/c c%)))