From 725da3b2ed1e3e20d665a9f302a181609b526ab7 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@ccs.neu.edu>
Date: Tue, 28 Sep 2010 18:07:10 -0400
Subject: [PATCH] fix string-ith problem, Closes PR 11261

---
 collects/lang/private/teachprims.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lang/private/teachprims.rkt b/collects/lang/private/teachprims.rkt
index 511bec220e..de9be9b6be 100644
--- a/collects/lang/private/teachprims.rkt
+++ b/collects/lang/private/teachprims.rkt
@@ -469,7 +469,7 @@ namespace.
 
 (define-teach beginner string-ith
   (lambda (s n)
-    (define f "<exact integer in [0, length of the given string (~s)]>")
+    (define f "<exact integer in [0, length of the given string (~s))>")
     (cerr 'string-ith (string? s) "<string>" s "first")
     (cerr 'string-ith (and (number? n) (integer? n) (>= n 0)) NAT n "second")
     (let ([l (string-length s)])