From 74ebcb96317f27ea51414113baf35cf91a93fa2e Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 31 May 2006 19:03:29 +0000
Subject: [PATCH] typo

svn: r3154
---
 collects/mzlib/string.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 95c5e706b2..3e17fc7158 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -454,7 +454,7 @@
                 [(eq? 'char 1st) (cons no-dot1 (cdr l))]
                 [(eq? 'any 1st)
                  (cond ;; "*"      -->  "(?:[^.].*)"
-                       [(not 2nd) no-dot+]
+                       [(not 2nd) (list no-dot+)]
                        ;; "*.---"  -->  "(?:[^.].*).---"
                        [(or (eq? #\. 2nd) (equal? '(quote #\.) 2nd))
                         (cons no-dot+ (cdr l))]