From e965785f802932fad015db9c8efe6147d5d29588 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Fri, 20 Jul 2001 18:20:55 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/WOKVC.RCS  | 3 ++-
 src/WOKTclLib/WOKVC.SCCS | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/WOKTclLib/WOKVC.RCS b/src/WOKTclLib/WOKVC.RCS
index cf1f983..5aae7d7 100755
--- a/src/WOKTclLib/WOKVC.RCS
+++ b/src/WOKTclLib/WOKVC.RCS
@@ -44,6 +44,7 @@ proc wokIntegre:BASE:InitFile { infile vrs cmt Sfile {fileid stdout} } {
     puts $fileid [format "rcs -q -i -U -t/tmp/%s %s" $bna.desc $pfx]
     puts $fileid [format "cp -p %s ./%s" $infile $pfx]
     puts $fileid [format "ci -u -f -r%s -m%s %s %s" $vrs $cmt $pfx $bnas]
+    puts $fileid [format "rm -f ./%s" $bna]
     puts $fileid [format "rm -f /tmp/%s " $bna.desc]
     return 
 }
@@ -112,7 +113,7 @@ proc wokIntegre:BASE:GetFile { Sfile invrs {fileid stdout} } {
 	    puts $fileid [format "co -u -r%s %s" $invrs $Sfile]
 	}
     }
-    puts $fileid [format "chmod 644 $file"]
+    ;#puts $fileid [format "chmod 644 $file"]
     return
 }
 ;#/home/wb/kl/KERNEL/SCCS//BASES/TSTPACK.p/4,f_UGSuppliers.c,v  -->  4,f_UGSuppliers.c
diff --git a/src/WOKTclLib/WOKVC.SCCS b/src/WOKTclLib/WOKVC.SCCS
index 55a5df6..2491acd 100755
--- a/src/WOKTclLib/WOKVC.SCCS
+++ b/src/WOKTclLib/WOKVC.SCCS
@@ -135,6 +135,7 @@ proc wokIntegre:BASE:EOF { {fileid stdout} } {
 #    exp_internal -f file 1 : stdout and patterns in file + pattern on stderr
 #;<
 proc wokIntegre:BASE:Execute { VERBOSE command {fileid stdout} } {
+    package require Expect
     spawn -noecho sh $command
     set LOCID $spawn_id
     log_user 0
-- 
2.39.5