diff --git a/collects/tests/schelog/run-all.rkt b/collects/tests/schelog/run-all.rkt
index b4a1bce97d..f116f0a869 100644
--- a/collects/tests/schelog/run-all.rkt
+++ b/collects/tests/schelog/run-all.rkt
@@ -1,9 +1,11 @@
 #lang racket
 (require racket/runtime-path tests/eli-tester)
 (define-runtime-path here ".")
-(define this-file (build-path "run-all.rkt"))
 
 (test
- (for ([p (in-list (directory-list here))]
-       #:when (not (equal? this-file p)))
-   (dynamic-require (build-path here p) #f)))
\ No newline at end of file
+ (for ([p (in-list (directory-list here))])
+   (define s (path->string p))
+   (when (regexp-match #rx"rkt$" s)
+     (unless (or (string=? "compiled" s)
+                 (string=? "run-all.rkt" s))
+       (dynamic-require (build-path here p) #f)))))
\ No newline at end of file