diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
index 1480fb5b39..15421e7a1f 100644
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
@@ -1,9 +1,10 @@
 #lang racket
 
-(require pict (only-in 2htdp/universe big-bang on-tick to-draw) rackunit)
+(require pict (only-in 2htdp/universe big-bang on-tick to-draw) "test-aux.rkt")
 
-(check-equal?
- 103 
- (big-bang 100
-           [on-tick add1 1/28 3]
-           [to-draw (lambda (w) (pict->bitmap (circle w)))]))
+(testing
+  (check-equal?
+    103 
+    (big-bang 100
+              [on-tick add1 1/28 3]
+	      [to-draw (lambda (w) (pict->bitmap (circle w)))])))