No comments

diff --git a/src/WOKTools/WOKTools_Replace.tcl b/src/WOKTools/WOKTools_Replace.tcl
index 4fb6b0cb138190b629e12436c01082dd28c9a4b0..c0ace60e1c30aba1c2e05364e95198bb332d9d80 100755 (executable)
--- a/src/WOKTools/WOKTools_Replace.tcl
+++ b/src/WOKTools/WOKTools_Replace.tcl
@@ -50,20 +50,12 @@ proc WOKTools_Replace:Execute { unit args } {
 
        regsub -all "/" " $source $target" $replstr  TheArgs
 
-        if { [file exist $target] } {
-         set A [catch {eval "wokcmp $TheArgs"} result ]
-       } else {
-          set result 0 }
-       
-       if { ! $result } {
-           msgprint -i -c "WOKTools_Replace::Execute" "Copy $source to $target"
-           if { [file exist $target] && [wokparam -e %Station] != "wnt" } {
+       msgprint -i -c "WOKTools_Replace::Execute" "Copy $source to $target"
+       if { [file exist $target] && [wokparam -e %Station] != "wnt" } {
                eval exec "chmod u+w $target"
-           }
-           eval exec "$copycmd $TheArgs"
-       } else {
-           msgprint -i -c "WOKTools_Replace::Execute" "No change in $source"
        }
+        eval exec "$copycmd $TheArgs"
+
     }
     return 0;
 }