diff --git a/collects/tests/rackunit/test-test.rkt b/collects/tests/rackunit/test-test.rkt
index c7058eeb9c..3449108185 100644
--- a/collects/tests/rackunit/test-test.rkt
+++ b/collects/tests/rackunit/test-test.rkt
@@ -165,10 +165,10 @@
       (check-equal? foo 3)))
      
    (test-case
-    "Test simple foldts"
+    "Test simple foldts-test-suite"
     (check-equal?
      '(S (C C C))
-     (foldts
+     (foldts-test-suite
       (lambda (suite name before after seed)
         seed)
       (lambda (suite name before after seed kid-seed)
diff --git a/collects/typed/rackunit/main.rkt b/collects/typed/rackunit/main.rkt
index 69d6565ab6..52fa981f05 100644
--- a/collects/typed/rackunit/main.rkt
+++ b/collects/typed/rackunit/main.rkt
@@ -166,5 +166,5 @@
  #;[fold-test-results
     XXX]
  ; XXX Requires knowing more about test cases and structs
- #;[foldts
+ #;[foldts-test-suite
     XXX])