Index: apps/taip/taip.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/taip/taip.tcl,v
retrieving revision 1.1.1.1
diff -u -p -u -p -r1.1.1.1 taip.tcl
--- apps/taip/taip.tcl	27 Sep 2001 18:00:16 -0000	1.1.1.1
+++ apps/taip/taip.tcl	31 Jul 2004 05:08:15 -0000
@@ -100,7 +100,12 @@ proc doit {{root .} {constrained 1}} {
     bind $root <Triple-1> { exit }
 }
 
-set ::DIR [file dirname [info script]]
+set f [info script]
+while {[file type $f] eq "link"} {
+    set f [file join [file dirname $f] [file readlink $f]]
+}
+set ::DIR [file dirname $f]
+unset f
 
 if {!$tcl_interactive} {
     doit .