diff options
Diffstat (limited to 'stdlib.tcl')
-rw-r--r-- | stdlib.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -105,7 +105,7 @@ proc {info nameofexecutable} {} { return [file join [pwd] $::jim_argv0] } foreach path [split [env PATH ""] $::tcl_platform(pathSeparator)] { - set exec [file join [pwd] $path $::jim_argv0] + set exec [file join [pwd] [string map {\\ /} $path] $::jim_argv0] if {[file executable $exec]} { return $exec } |