Bump version to 1.4.3

[ir-tcl-moved-to-github.git] / setup.tcl

diff --git a/setup.tcl b/setup.tcl
index 3d6e060..8f44647 100644 (file)
--- a/setup.tcl
+++ b/setup.tcl
@@ -6,7 +6,13 @@
 # Configuration Driver
 #
 # $Log: setup.tcl,v $
-# Revision 1.4  1998-02-12 13:32:42  adam
+# Revision 1.6  1999-12-12 00:25:59  adam
+# Updated list of preconfigure targets.
+#
+# Revision 1.5  1998/04/02 14:32:01  adam
+# Minor changes to EXPLAIN driver.
+#
+# Revision 1.4  1998/02/12 13:32:42  adam
 # Updated configuration system.
 #
 # Revision 1.3  1998/01/30 13:30:50  adam
@@ -63,7 +69,7 @@ proc protocol-setup-action {target} {
     
     set timedef $profileS($target,timeDefine)
     if {![string length $timedef]} {
-        set timedef [clock seconds]
+       set profileS($target,timeDefine) [clock seconds]
     }
 
     foreach n [array names profileS $target,*] {
@@ -411,7 +417,6 @@ proc target-setup-db-remove {target wp} {
         target-setup-dblist-update $target $wp
         if {![llength $profileS($target,databases)]} {
             unset profileS($target,databases)
-            puts removed
         }
     }
 }