Index: library/init.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/init.tcl,v
retrieving revision 1.44
diff -u -r1.44 init.tcl
--- library/init.tcl	2000/12/11 04:17:38	1.44
+++ library/init.tcl	2001/01/31 18:15:30
@@ -591,3 +591,8 @@
 }
 
 }
+
+# Perform any local initialization.
+if {[file exists [file join [info library] init-local.tcl]]} {
+    source [file join [info library] init-local.tcl]
+}
