From 4c9bb95622925f18047c13a57b6620850ba983ce Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Jan 2007 07:55:07 +0000
Subject: [PATCH] fix error message for system-type

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

diff --git a/src/mzscheme/src/string.c b/src/mzscheme/src/string.c
index 00687bb0cc..ec85129e4c 100644
--- a/src/mzscheme/src/string.c
+++ b/src/mzscheme/src/string.c
@@ -2139,7 +2139,7 @@ static Scheme_Object *system_type(int argc, Scheme_Object *argv[])
 
     sym = scheme_intern_symbol("os");
     if (!SAME_OBJ(argv[0], sym)) {
-      scheme_wrong_type("system-type", "'os, 'link, 'machine, or 'gc", 0, argc, argv);
+      scheme_wrong_type("system-type", "'os, 'link, 'machine, 'gc, or 'so-suffix", 0, argc, argv);
       return NULL;
     }
   }