From 874281119d561656e21f6ef62f7dd07bfce40a0d Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Mon, 6 Dec 1999 18:10:05 +0000
Subject: [PATCH] No comments

---
 src/WOKTools/WOKTools_Replace.tcl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/WOKTools/WOKTools_Replace.tcl b/src/WOKTools/WOKTools_Replace.tcl
index 453a788..39fd7ac 100755
--- a/src/WOKTools/WOKTools_Replace.tcl
+++ b/src/WOKTools/WOKTools_Replace.tcl
@@ -50,12 +50,14 @@ proc WOKTools_Replace::Execute { unit args } {
 
 	regsub -all "/" " $source $target" $replstr  TheArgs
 
-	set A [catch {eval exec "cmp $TheArgs"} result ]
-
-	if { $result != "" } {
+        if { [file exist $target] } {
+	  set A [catch {eval exec "wokcmp $TheArgs"} result ]
+	  if { $result != "" } {
 	    set result 0
-	} else { set result 1 }
-	
+	  } else { set result 1 }
+	} else {
+          set result 0 }
+
 	if { ! $result } {
 	    msgprint -i -c "WOKTools_Replace::Execute" "Copy $source to $target"
 	    if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } {
-- 
2.39.5