diff --git a/Tech.tcl b/Tech.tcl
--- a/Tech.tcl
+++ b/Tech.tcl
@@ -1,5 +1,3 @@
-unbind dcc  n rehash		*dcc:rehash
-  bind dcc  T rehash		 dcc:rehash
   bind dcc  T s                  dcc:source
 unbind dcc  n tcl		*dcc:tcl
   bind dcc  T tcl		 dcc:tcl
@@ -16,6 +14,8 @@
 
   bind dcc  T env       dcc:env
 
+  bind evnt - prerehash  evnt:prerehash
+
 #
 # Helpers methods
 #
@@ -47,15 +47,6 @@
 # Tech commands
 #
 
-#Disconnect SQL, then rehash (to prevent sql connect fatal errors)
-proc dcc:rehash {handle idx arg} {
-	catch {
-		sql disconnect
-		sql2 disconnect
-	}
-	*dcc:rehash $handle $idx $arg
-}
-
 #Loads a script
 proc dcc:source {handle idx arg} {
 	if {$arg == ""} {
@@ -209,3 +200,14 @@
         putdcc $idx "[format %-[strlenmax $keys]s $key] $value"
     }
 }
+
+#
+# UNIX signals
+#
+
+proc evnt:prerehash {type} {
+	catch {
+		sql disconnect
+		sql2 disconnect
+	}
+}