package.diff¹âç¹âëmBINâIndex: package.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/package.tcl,v
retrieving revision 1.20
diff -u -r1.20 package.tcl
--- package.tcl	22 Oct 2002 16:41:28 -0000	1.20
+++ package.tcl	27 Oct 2002 11:15:06 -0000
@@ -512,7 +512,8 @@
 	}
 	# On MacOSX also search the Resources/Scripts directories in
 	# the subdirectories for pkgIndex files
-	if {[string equal $::tcl_platform(platform) "unix"] && \
+	if {(![interp issafe]) && \
+		[string equal $::tcl_platform(platform) "unix"] && \
 	        [string equal $::tcl_platform(os) "Darwin"]} {
 	    set dir [lindex $use_path end]
 	    catch {
