From 6ee95b47da6355c2bb0fb2f29c0da376979748f3 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 20 Dec 2000 18:10:41 +0000
Subject: [PATCH] No comments

---
 src/CDLFront/CDLFront_Replace.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/CDLFront/CDLFront_Replace.tcl b/src/CDLFront/CDLFront_Replace.tcl
index 9495e70..4f81267 100755
--- a/src/CDLFront/CDLFront_Replace.tcl
+++ b/src/CDLFront/CDLFront_Replace.tcl
@@ -12,7 +12,7 @@ proc CDLFront_Replace:HandleInputFile { ID } {
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
     switch $name {
-         step.tab.c  {return 1;} 
+         CDL.tab.c  {return 1;} 
 	default {
 	    return 0;
 	}
@@ -21,7 +21,7 @@ proc CDLFront_Replace:HandleInputFile { ID } {
 
 proc CDLFront_Replace:Execute { unit args } {
     
-    msgprint -i -c "CDLFront_Replace::Execute" "Copying of CDLFront includes  $unit $args "
+    msgprint -i -c "CDLFront_Replace::Execute" "Copying of CDLFront derivated files  $unit $args "
 
     global tcl_interactive
 
-- 
2.39.5