* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'

	call for Macs

diff --git a/ChangeLog b/ChangeLog
index 072864b6d4b2e63ca40ea22c827b6f94e25d8944..64f9def34db4aab2ba94d55a714c09c0e078ebb1 100644 (file)
--- 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 6c01bacfe72f3b773b89cdb1317a3baa7ac12367..2c3e416cf391bb92aeb4fa226e5861eb9bc35663 100755 (executable)
--- 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}