From fcd7b805511c7b62bf0aaa0bde3c8591a7509936 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 29 Mar 2001 00:05:11 +0000
Subject: [PATCH] 	* tkcon.tcl (::tkcon::Init): added safe interp check
 around 'cd' 	call for Macs

---
 ChangeLog | 5 +++++
 tkcon.tcl | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 072864b..64f9def 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-28  Jeff Hobbs  <jeffh@activestate.com>
+
+	* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'
+	call for Macs
+
 2000-10-30  Jeff Hobbs  <hobbs@ajubasolutions.com>
 
 	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
diff --git a/tkcon.tcl b/tkcon.tcl
index 6c01bac..2c3e416 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -189,7 +189,7 @@ proc ::tkcon::Init {} {
     switch $tcl_platform(platform) {
 	macintosh	{
 	    set envHome PREF_FOLDER
-	    cd [file dirname [info script]]
+	    if {![interp issafe]} {cd [file dirname [info script]]}
 	    set PRIV(rcfile)	tkcon.cfg
 	    set PRIV(histfile)	tkcon.hst
 	    catch {console hide}
-- 
2.23.0