diff --git a/compiler-lib/compiler/commands/test.rkt b/compiler-lib/compiler/commands/test.rkt
index 5c71cce195..c306eda2f7 100644
--- a/compiler-lib/compiler/commands/test.rkt
+++ b/compiler-lib/compiler/commands/test.rkt
@@ -565,7 +565,7 @@
               (directory-list p)
               #:sema continue-sema)))]
        [(and (or (not check-suffix?)
-                 (regexp-match? rx:default-suffixes p)
+                 (regexp-match? rx:default-suffixes (file-name-from-path p))
                  (get-cmdline p #f #:check-info? #t)
                  (include-path? p #:check-info? #t))
              (or (not check-suffix?)
diff --git a/compiler-test/tests/compiler/test/d/.ignored.rkt b/compiler-test/tests/compiler/test/d/.ignored.rkt
new file mode 100644
index 0000000000..1cc00a2f23
--- /dev/null
+++ b/compiler-test/tests/compiler/test/d/.ignored.rkt
@@ -0,0 +1,2 @@
+#lang racket/base
+(error 'ignored "I shouldn't run!")