diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/performance/module-loading-memory.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/performance/module-loading-memory.rkt
new file mode 100644
index 00000000..1518db4d
--- /dev/null
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/performance/module-loading-memory.rkt
@@ -0,0 +1,18 @@
+#lang racket/load
+
+(displayln "The printouts below are designed to trick drdr into graphing them;")
+(displayln "they aren't times, but memory usage.")
+
+(define (print-memory)
+  (for ((i 10))
+    (collect-garbage))
+  (let ([n (current-memory-use)])
+   (printf "cpu time: ~a real time: ~a gc time: ~a\n" n n n)))
+
+
+
+(print-memory)
+(module tr typed/racket)
+(print-memory)
+(require 'tr)
+(print-memory)