--- a/.emacs-my	Wed Sep 07 14:22:15 2011 +0300
+++ b/.emacs-my	Wed Sep 07 22:11:45 2011 +0300
@@ -102,7 +102,7 @@
 
 (defvar my-devel-mode-list
   '(
-    sh-mode script-mode
+    sh-mode script-mode tcl-mode
     c-mode c++-mode java-mode js-mode
     python-mode
     lisp-mode