Index: library/init.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/init.tcl,v
retrieving revision 1.56
diff -u -r1.56 init.tcl
--- library/init.tcl	4 Mar 2003 23:46:00 -0000	1.56
+++ library/init.tcl	22 Sep 2003 16:29:33 -0000
@@ -168,7 +168,8 @@
 #		command, including the command name.
 
 proc unknown args {
-    global auto_noexec auto_noload env unknown_pending tcl_interactive
+    variable ::tcl::UnknownPending
+    global auto_noexec auto_noload env tcl_interactive
     global errorCode errorInfo
 
     # If the command word has the form "namespace inscope ns cmd"
@@ -196,18 +197,18 @@
 	#
 	# Make sure we're not trying to load the same proc twice.
 	#
-	if {[info exists unknown_pending($name)]} {
+	if {[info exists UnknownPending($name)]} {
 	    return -code error "self-referential recursion in \"unknown\" for command \"$name\"";
 	}
-	set unknown_pending($name) pending;
+	set UnknownPending($name) pending;
 	set ret [catch {auto_load $name [uplevel 1 {::namespace current}]} msg]
-	unset unknown_pending($name);
+	unset UnknownPending($name);
 	if {$ret != 0} {
 	    append errorInfo "\n    (autoloading \"$name\")"
 	    return -code $ret -errorcode $errorCode -errorinfo $errorInfo $msg
 	}
-	if {![array size unknown_pending]} {
-	    unset unknown_pending
+	if {![array size UnknownPending]} {
+	    unset UnknownPending
 	}
 	if {$msg} {
 	    set errorCode $savedErrorCode
