set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
} else {
- set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
- set res2 [ string range $result2 1 [expr [string length $result2] -2 ] ]
+ set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
+ set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
+ set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]]
+ set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]]
}
if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
puts "OCC309: OK 1"