Source files at global level.

diff --git a/stl.tcl b/stl.tcl
index 0404886a0b72b945a36c8e7979c1c5db2024c1ae..e830c1bcafd8e43bf390853770d49a52229a1905 100644 (file)
--- a/stl.tcl
+++ b/stl.tcl
@@ -2,13 +2,13 @@
 # $Id$
 #
 # Stl is my own tcl library.  It's not quite ready to be released.
-# In the stl-lite directory is an extremely trimmed down version.
+# The stl-lite directory contains an extremely trimmed down version.
 # This proc loads it.
 #
 
 proc stl_lite_init {} {
     global tkinspect_library
     foreach file {object.tcl filechsr.tcl simpleentry.tcl tk_util.tcl} {
-       source $tkinspect_library/stl-lite/$file
+       uplevel #0 [list source $tkinspect_library/stl-lite/$file]
     }
 }