From 4a8e6be9abfe67725001e2d420585a5b6fc65426 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 23 Nov 2006 17:49:24 +0000
Subject: [PATCH] fixed another typo in the code, added tests

svn: r4936

original commit: a0243b4616e707de1d78332853cbddb0f4b47858
---
 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 1b2f1cf..8b06a1a 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -447,7 +447,7 @@
                                  (if simple? simple-item:s item:s)
                                  #\* ".*" "."))]
                       [(pfx sfx) (if case-sens?
-                                   (if b? (values #"^" #"^")
+                                   (if b? (values #"^" #"$")
                                           (values  "^"  "$"))
                                    (if b? (values #"^(?i:" #")$")
                                           (values  "^(?i:"  ")$")))]