From 64e26da03ccf3a7073a80e69061e2849e46d2d59 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 15 Aug 2003 03:19:16 +0000
Subject: [PATCH] ..

original commit: b9dd3c4a9f0a9661c371dc77e7772656882d4b29
---
 collects/mzlib/contract.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index e4fae46..596921b 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -1745,6 +1745,7 @@
 	     (char? x)
 	     (null? x)
 	     (number? x)
+	     (regexp? x)
 	     (and (pair? x)
 		  (printable? (car x))
 		  (printable? (cdr x)))