--- a/.tclshrc	Fri Aug 30 00:28:47 2013 +0300
+++ b/.tclshrc	Fri Aug 30 00:31:19 2013 +0300
@@ -6,8 +6,10 @@
         namespace eval tclreadline {
             if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {
                 proc prompt1 {} { return "
\[0;31m\[1mtcl>
\[0m " }
+                proc prompt2 {} { return "
\[0;31m...> 
\[0m" }
             } {
                 proc prompt1 {} { return "tcl> " }
+                proc prompt2 {} { return "...> " }
             }
         }
         ::tclreadline::Loop