From e3f4cdad60bfa90a8302dac0bca370da2c9d4da1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 3 Mar 2003 14:32:00 +0000
Subject: [PATCH] .

original commit: 3037628c8cb49ee4549d5e33ea905cfa5eedd0cd
---
 collects/mred/mred.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 41fd8739..1fd647f3 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -6787,12 +6787,12 @@
     (wx:unregister-collecting-blit (mred->wx canvas))))
 
 (define bitmap-dc%
-  (class100 wx:bitmap-dc% ([bm #f])
+  (class100 wx:bitmap-dc% ([bitmap #f])
     (inherit set-bitmap)
     (sequence
       (super-init)
-      (when bm
-	(set-bitmap bm)))))
+      (when bitmap
+	(set-bitmap bitmap)))))
 
 (define post-script-dc%
   (class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])