diff --git a/tcl/d.tcl b/tcl/d.tcl
deleted file mode 100644
index a74e5d8c..00000000
--- a/tcl/d.tcl
+++ /dev/null
@@ -1,3 +0,0 @@
-set home /data/koenneck/src/sics/tcl
-set datapath /data/koenneck/src/sics/tmp
-set recoverfil /data/koenneck/src/sics/recover.dat
diff --git a/tcl/g.tcl b/tcl/g.tcl
deleted file mode 100644
index f5e56893..00000000
--- a/tcl/g.tcl
+++ /dev/null
@@ -1,5 +0,0 @@
-#--------------------------------------------------------------------------
-proc GetNum { text } {
-	set list [split $text =]
-        return [lindex $list 1]
-}
diff --git a/tcl/var.lis b/tcl/var.lis
deleted file mode 100644
index 3bda3f12..00000000
--- a/tcl/var.lis
+++ /dev/null
@@ -1,28 +0,0 @@
-OBTCL_LIBRARY
-tcl_rcFileName
-tcl_version
-argv
-argv0
-tcl_interactive
-obtcl_version
-_obTcl_SysMethod
-db_debug
-auto_oldpath
-auto_path
-errorCode
-errorInfo
-_obTcl_Inherits
-_obTcl_Classes
-auto_index
-env
-_obTcl_Cached
-_otReferenceSBD
-tcl_patchLevel
-_obTcl_NoClasses
-_bp_ID
-_bp_ON
-_uPriv_DOCS
-argc
-_obTcl_Cnt
-tcl_library
-tcl_platform