From 707993b1dd4f01322cdbea334c71a1202373fa9b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 4 Jan 2017 15:16:31 +0000
Subject: Fix safe.tcl test-cases: "source -nopkg" is not necessary here:
 "source" is an alias for "::safe::AliasSource", which doesn't use "source"

---
 library/init.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/init.tcl b/library/init.tcl
index 65a19aa..e3d4ef0 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -486,7 +486,7 @@ proc auto_load_index {} {
 	set dir [lindex $auto_path $i]
 	set f ""
 	if {$issafe} {
-	    catch {source -nopkg [file join $dir tclIndex]}
+	    catch {source [file join $dir tclIndex]}
 	} elseif {[catch {set f [open [file join $dir tclIndex]]}]} {
 	    continue
 	} else {
-- 
cgit v0.12