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
new file mode 100644
index 0000000000..1480fb5b39
--- /dev/null
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(require pict (only-in 2htdp/universe big-bang on-tick to-draw) rackunit)
+
+(check-equal?
+ 103 
+ (big-bang 100
+           [on-tick add1 1/28 3]
+           [to-draw (lambda (w) (pict->bitmap (circle w)))]))
diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
index 251022b923..1fc795b6f0 100755
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
@@ -10,6 +10,7 @@ run() {
 
 cd tests 
 
+run bitmap-as-image-in-universe.rkt
 run key-error.rkt
 run run-movie.rkt
 run bad-draw.rkt