diff options
Diffstat (limited to 'src/helper/startup.tcl')
| -rw-r--r-- | src/helper/startup.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index 5a0d479..e6e76e6 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -11,10 +11,10 @@ proc find {filename} { if {[catch {ocd_find $filename} t]==0} { return $t } - if {[catch {ocd_find [string map {\ /} $filename} t]==0} { + if {[catch {ocd_find [string map {\\ /} $filename]} t]==0} { return $t } - if {[catch {ocd_find [string map {/ \\} $filename} t]==0} { + if {[catch {ocd_find [string map {/ \\} $filename]} t]==0} { return $t } # make sure error message matches original input string |