From 19d474d045a65ce527db811fde2d8263375a8143 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 May 2012 18:44:54 -0600
Subject: [PATCH] fix some tests related to the `make-color' and `make-pen'
 addition

---
 collects/2htdp/tests/test-image.rkt   | 4 +++-
 collects/tests/deinprogramm/image.rkt | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/2htdp/tests/test-image.rkt b/collects/2htdp/tests/test-image.rkt
index 25174078b1..8587997c26 100644
--- a/collects/2htdp/tests/test-image.rkt
+++ b/collects/2htdp/tests/test-image.rkt
@@ -48,7 +48,9 @@
          racket/runtime-path
          racket/class
          racket/file
-         racket/gui/base
+         (except-in racket/gui/base
+                    make-color
+                    make-pen)
          racket/port
          wxme
          rackunit
diff --git a/collects/tests/deinprogramm/image.rkt b/collects/tests/deinprogramm/image.rkt
index 0ee64a739a..6b4be587ee 100644
--- a/collects/tests/deinprogramm/image.rkt
+++ b/collects/tests/deinprogramm/image.rkt
@@ -5,7 +5,7 @@
 (require rackunit
 	 deinprogramm/image
          (only-in lang/private/imageeq image=?)
-	 mred
+	 (except-in mred make-color make-pen)
 	 mzlib/class
 	 mrlib/cache-image-snip
 	 lang/posn