Allow building with MSVC on windows

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 1 insertions, 1 deletions

diff --git a/stdlib.tcl b/stdlib.tcl
index 3abeb3e..caacc00 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -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
 			}