--- tcl8.4.13/generic/tclProc.c.orig	Mon Oct 24 01:01:30 2005
+++ tcl8.4.13/generic/tclProc.c	Thu Jan 18 22:17:56 2007
@@ -584,6 +584,7 @@
     } else {
 	level = curLevel - 1;
 	result = 0;
+	string = "1"; /* a hack to fix the error message if level is not found */
     }
 
     /*
