Index: src/mzscheme/src/network.c
===================================================================
RCS file: /cvs/plt/src/mzscheme/src/network.c,v
retrieving revision 1.138
diff -u -r1.138 network.c
--- src/mzscheme/src/network.c	11 May 2005 16:12:30 -0000	1.138
+++ src/mzscheme/src/network.c	20 May 2005 03:28:24 -0000
@@ -2471,7 +2512,7 @@
     reuse = SCHEME_TRUEP(argv[2]);
   if (argc > 3) {
     if (!SCHEME_CHAR_STRINGP(argv[3]) && !SCHEME_FALSEP(argv[3]))
-      scheme_wrong_type("tcp-connect", "string or #f", 3, argc, argv);
+      scheme_wrong_type("tcp-listen", "string or #f", 3, argc, argv);
   }
     
 #ifdef USE_TCP