minor starkit pkg fix

diff --git a/ChangeLog b/ChangeLog
index 26855eb64236bf8bd12f9377ca4aa7a7a903c931..5164da77b004e0f3c1adfdc655fbbdb4590daee2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-26  Jean-Claude Wippler  <jcw@equi4.com>
+
+       * starkit.tcl: add file normalize around info nameofexe, fixes
+       startup detection when exec'd in some cases (thx E Boudaillier).
+
 2003-09-01  Vince Darley <vincentdarley@sourceforge.net>
 
        * library/mk4vfs.tcl: fix to Bug #796782.

diff --git a/library/starkit.tcl b/library/starkit.tcl
index 6fa3194ef4ddf0cd40f76172605ccb3b10d6fb6b..4c43728ef2190903a2e792af89b60c0aac38a43b 100644 (file)
--- a/library/starkit.tcl
+++ b/library/starkit.tcl
@@ -54,7 +54,7 @@ namespace eval starkit {
        set script [file normalize [info script]]
        set topdir [file dirname $script]
 
-       if {$topdir eq [info nameofexe]} { return starpack }
+       if {$topdir eq [file normalize [info nameofexe]]} { return starpack }
 
        # pkgs live in the $topdir/lib/ directory
        set lib [file join $topdir lib]