diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index 486cef56..dc2e9629 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -887,6 +887,8 @@
 			      (let ([p (send dc get-pen)])
 				(send dc set-pen "blue" 8 'solid)
 				(send dc draw-rectangle 160 310 20 20)
+				(send dc set-pen "blue" 7 'solid)
+				(send dc draw-rectangle 187 310 20 20)
 				(send dc set-pen p)))
 			      
 			    (when (and last? (not (or ps? (eq? dc can-dc)))