diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index b6eeb0ef62..e6cf806318 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -2532,7 +2532,7 @@
   (test/spec-failed
    'define/contract18
    '(begin
-      (eval '(module foo-dc17 scheme/base
+      (eval '(module foo-dc18 scheme/base
                (require scheme/contract)
                (require scheme/unit)
                (let ()