From 63f26ed1811fdaa5f261fec9fb1b0102b9858acc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 2 Jun 2011 16:25:23 -0700
Subject: [PATCH] adding a missing 2htdp/image color => racket/gui color
 coercion   closes PR 11956

original commit: 9e36dc8eb328d9c50fcdaf2a8765b09e6591e96e
---
 collects/mrlib/image-core.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt
index 46903568..f4c23f29 100644
--- a/collects/mrlib/image-core.rkt
+++ b/collects/mrlib/image-core.rkt
@@ -1136,7 +1136,7 @@ the mask bitmap and the original bitmap are all together in a single bytes!
 
 (define (pen->pen-obj/cache pen)
   (send the-pen-list find-or-create-pen 
-        (pen-color pen)
+        (get-color-arg (pen-color pen))
         (pen-width pen)
         (pen-style pen)
         (pen-cap pen)