From cd0e0c550fc57a3101dfffdde9c7aafe5f29eb15 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 7 Apr 2009 16:34:51 +0000
Subject: [PATCH] fix bug intorduced by lazy rx

svn: r14443
---
 collects/rnrs/io/ports-6.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/rnrs/io/ports-6.ss b/collects/rnrs/io/ports-6.ss
index 1e6c8b44e3..8deca786f7 100644
--- a/collects/rnrs/io/ports-6.ss
+++ b/collects/rnrs/io/ports-6.ss
@@ -8,7 +8,8 @@
          r6rs/private/readtable
          r6rs/private/exns
          scheme/port
-         scheme/pretty)
+         scheme/pretty
+         scheme/promise)
 
 (provide (all-from-out r6rs/private/io-conds)
          file-options
@@ -938,7 +939,7 @@
                     (cond
                      [(symbol? v)
                       (let ([s (symbol->string v)])
-                        (and (not (regexp-match rx:id s))
+                        (and (not (regexp-match (force rx:id) s))
                              (for/fold ([len 0])
                                  ([c (in-string s)]
                                   [pos (in-naturals)])