From eeada45868d73c02b59f5c1ecd16e414d5a114ac Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 22 Jul 2010 15:12:07 -0600
Subject: [PATCH] Fixing error string

---
 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 85626a65e4..aca0dcde90 100644
--- a/collects/lang/private/teachprims.rkt
+++ b/collects/lang/private/teachprims.rkt
@@ -504,7 +504,7 @@ namespace.
 
 (define-teach beginner string-whitespace? 
   (lambda (s)
-    (cerr 'string-upper-case? (string? s)  "<string>" s)
+    (cerr 'string-whitespace? (string? s)  "<string>" s)
     (andmap char-whitespace? (string->list s))))
 
 ;; -----------------------------------------------------------------------------