From 1493551beb55bdbed34344a21da991736f1ab348 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 18 Nov 2002 15:43:21 +0000
Subject: [PATCH] .

original commit: f6b22c613884a51c271ca71bce6cc4d66d373d92
---
 collects/tests/mred/dc.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mred/dc.ss b/collects/tests/mred/dc.ss
index 81d3f14f..8c2a1b91 100644
--- a/collects/tests/mred/dc.ss
+++ b/collects/tests/mred/dc.ss
@@ -8,6 +8,8 @@
 (define mdc (make-object bitmap-dc%))
 (define bm (make-object bitmap% 10 10))
 
+(test #t 'is-color? (send bm is-color?))
+
 (define (bad m . args)
   (with-handlers ([exn:application:mismatch?
 		   (lambda (x)