diff --git a/collects/tests/mred/draw-info.txt b/collects/tests/mred/draw-info.txt
index a5c6354e..07639721 100644
--- a/collects/tests/mred/draw-info.txt
+++ b/collects/tests/mred/draw-info.txt
@@ -38,6 +38,13 @@ The drawing area should have the following features:
     an 25% black B&W bitmap, and a red box frame should be draw with a
     50% red stipple.
 
+  To the right of those two boxes should appear two little boxes,
+    black pixels on a tan background, the top one 8x8 and the bottom
+    on 6x10.  The black pixels in the top one should form a vertical
+    line right or center with a kind of semi-spring on the left
+    edge. The black pixels in 6x10 should be just a longer semi-spring
+    to the left.
+
   The drawings under "0 x 0" and "1 x 1" should look nearly the same:
 
     TopLeft: h-line should be left-aligned with box below it, but
diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index a320b7f9..d517c52c 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -437,6 +437,18 @@
 				  (send dc set-brush orig-b)
 				  (send dc set-pen orig-pen))))
 			    
+			    (unless no-bitmaps?
+			      (let ([obg (send dc get-background)]
+				    [tan (make-object color% "TAN")])
+				(send dc set-background tan)
+				(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/+"]
+				       [bm (make-object bitmap% bits 8 8)])
+				  (send dc draw-bitmap bm 306 164 'opaque))
+				(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567"]
+				       [bm (make-object bitmap% bits 6 10)])
+				  (send dc draw-bitmap bm 306 184 'opaque))
+				(send dc set-background obg)))
+
 			    (when last?
 			      ; Test get-text-extent
 			      (let ([save-pen (send dc get-pen)]