diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index 24afd245..c493620b 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -334,7 +334,7 @@
 					     (begin
 					       (let ([h (send bm get-height)]
 						     [w (send bm get-width)])
-						 (send dc draw-bitmap-region
+						 (send dc draw-bitmap-section
 						       bm x y 
 						       0 0 w h
 						       mode color)