Index: /trunk/ccl/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/ccl/lisp-kernel/thread_manager.c	(revision 605)
+++ /trunk/ccl/lisp-kernel/thread_manager.c	(revision 606)
@@ -415,5 +415,5 @@
   extern area
     *allocate_vstack_holding_area_lock(unsigned),
-    *allocate_tstack_holding_tcr(unsigned);
+    *allocate_tstack_holding_area_lock(unsigned);
   area *a;
   TCR *tcr = calloc(1, sizeof(TCR));