Ticket #41320: patch-Tcl-wnOpen.tcl.diff

Tcl/wnOpen.tcl

@@ -76 +76 @@
     #########################################################
     # get the filehead out of filename (case.struct --> case)
     set pwd [pwd]
-    cd [file dirname $file]
+    file copy $file $system(SCRDIR)
+    cd $system(SCRDIR)
     set filehead [file tail [FileHead $file]]
     if { [catch {exec $system(FORDIR)/str2xcr $filehead}] } {
-        ErrorDialog "error while executing \"str2xcr\" program"
+        set mypwd [pwd]
+        ErrorDialog "error while executing $system(FORDIR)/str2xcr $filehead in $mypwd"
         return
     }
-    # now copy $filehead.xcr to $system(SCRDIR)/xc_str2xcr.$$
-    file rename -force ${filehead}.xcr $system(SCRDIR)/xc_str2xcr.$system(PID)
+    # now copy $filehead.xcr to xc_str2xcr.$$
+    file rename -force ${filehead}.xcr xc_str2xcr.$system(PID)
     cd $pwd
 
     #