diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt
new file mode 100644
index 00000000..802d7d6d
--- /dev/null
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt
@@ -0,0 +1,4 @@
+#lang info
+
+(define test-omit-paths '("fail"
+                          "xfail"))
diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/nightly-run.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/nightly-run.rkt
index 04691b9c..2ca63ca5 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/nightly-run.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/nightly-run.rkt
@@ -1,5 +1,8 @@
 #lang racket/base
 
+(module test racket/base
+  (displayln "run as program for tests"))
+
 (require racket/runtime-path)
 (define-runtime-path run "run.rkt")
 (parameterize ([current-command-line-arguments '#("--nightly")])
diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
index 71868687..4f41e417 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
@@ -2,6 +2,9 @@
 
 (require "run.rkt" "../send-places.rkt")
 
+(module test racket/base
+  (displayln "run as program for tests"))
+
 ;; Assuming that only the log format changed, update test files to the
 ;; new format.
 ;; Running this after changes to the behavior of the optimizer is a
diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/run.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/run.rkt
index 07458d0c..5b48c640 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/run.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/run.rkt
@@ -47,3 +47,11 @@
       (unless (= 0 ((exec) to-run))
         (eprintf "Typed Racket Tests did not pass.\n")
         (exit 1))))
+
+;; Test mode:
+(module test racket/base
+  (require syntax/location)
+  (parameterize ([current-command-line-arguments (vector "--nightly")])
+    (dynamic-require (quote-module-path "..") 0))
+  (module config info
+    (define timeout 1800)))
diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/succeed/submodules.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/succeed/submodules.rkt
index 5893ff7c..2b5e4893 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/succeed/submodules.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/succeed/submodules.rkt
@@ -9,3 +9,8 @@
   (g (assert (string->number 
 	      (vector-ref (current-command-line-arguments) 0)))))
 
+;; Test mode:
+(module test racket/base
+  (require syntax/location)
+  (parameterize ([current-command-line-arguments (vector "1")])
+    (dynamic-require (quote-module-path "..") #f)))