From 3f3a8e6497ac2b9fc11c234c5224a2954904bc68 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 9 May 2006 16:01:18 +0000
Subject: [PATCH] fix procedure-name typo

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

diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index 647d19a334..88203ce800 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -723,7 +723,7 @@ void scheme_init_thread(Scheme_Env *env)
 				 
   scheme_add_global_constant("current-thread-initial-stack-size", 
 			     scheme_register_parameter(current_thread_initial_stack_size,
-						       "current-thread-initial-stack-increment",
+						       "current-thread-initial-stack-size",
 						       MZCONFIG_THREAD_INIT_STACK_SIZE),
 			     env);