1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 790ff73..e7c2f71 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -60,13 +60,13 @@ namespace eval tcl {
     if {$Dir ni $::auto_path} {
 	lappend ::auto_path $Dir
     }
-    catch {
+    if {[info exists ::tcl_pkgPath]} { catch {
 	foreach Dir $::tcl_pkgPath {
 	    if {$Dir ni $::auto_path} {
 		lappend ::auto_path $Dir
 	    }
 	}
-    }
+    }}
 
     if {![interp issafe]} {
         variable Path [encoding dirs]