No comments

diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl
index d2927ccd5b4d2706aed028e30b6f2b208f7b9ef1..e5ef193b529a2d632c5d86a0a7b9567cfcee3af4 100755 (executable)
--- a/src/WOKTclTools/WOKTclTools_Replace.tcl
+++ b/src/WOKTclTools/WOKTclTools_Replace.tcl
@@ -28,7 +28,7 @@ proc WOKTclTools_Replace:Execute { unit args } {
     set tcl_interactive 1
     package require Wokutils
 
-    msgprint -i -c "WOKTclTools_Replace:Execute" "Copying of WOKTclTools includes"
+    msgprint -i -c "WOKTclTools_Replace::Execute" "Copying of WOKTclTools includes"
 
     if { [wokparam -e %Station $unit] != "wnt" } {
        set copycmd "cp -p "
@@ -53,16 +53,16 @@ proc WOKTclTools_Replace:Execute { unit args } {
 
        if { [wokparam -e %Station $unit] == "wnt" && $result != "" } {
            set result 0
-       }
+       } else { set result 1 }
        
        if { ! $result } {
-           msgprint -i -c "WOKTclTools_Replace:Execute" "Copy $source to $target"
+           msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
            if { [wokparam -e %Station $unit] != "wnt" } {
                eval exec "chmod u+w $target"
            }
            eval exec "$copycmd $TheArgs"
        } else {
-           msgprint -i -c "WOKTclTools_Replace:Execute" "No change in $source"
+           msgprint -i -c "WOKTclTools_Replace::Execute" "No change in $source"
        }
     }
     return 0;