From f3e2e2c566892aba40f21d1161aa8ef9290f48a3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Apr 2008 12:31:47 +0000
Subject: [PATCH] undo typo

svn: r9316
---
 src/mzscheme/src/read.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c
index b427d552c9..8d976bf364 100644
--- a/src/mzscheme/src/read.c
+++ b/src/mzscheme/src/read.c
@@ -1703,7 +1703,7 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
             Scheme_Object *v;
             if (!params->can_read_reader) {
               scheme_read_err(port, stxsrc, line, col, pos, 2, 0, indentation,
-                              "read: #! readerppppp expressions not currently enabled");
+                              "read: #! reader expressions not currently enabled");
               return NULL;
             }
             v = read_lang(port, stxsrc, line, col, pos, ht, indentation, params, ch);