[Starkit] Building a fresh starkit

[Techentin, Robert W.]

> # Determine where cbrowser really lives
> set link $argv0 
> while {![catch {file readlink $link} result]} {
>   set link [file join [file dirname $link] $result]
> }
> set sourcedir [file dirname $link]

Doesn't [file dirname [info script]] do the job?

Bob
-- 
Bob Techentin                        techentin.robert at mayo.edu 
Mayo Foundation                                 (507) 538-5495 
200 First St. SW                            FAX (507) 284-9171
Rochester MN, 55901  USA            http://www.mayo.edu/sppdg/