--- tac.tcl.orig	Thu Sep 21 13:01:46 2000
+++ tac.tcl	Mon Jan 15 13:34:43 2001
@@ -296,9 +296,9 @@
     if {![info exists ::PASSWORD]} {
         puts -nonewline "Password: "
         flush stdout
-        exec stty -echo
+#        exec stty -echo
         set ::PASSWORD [string trimright [gets stdin]]
-        exec stty echo
+#        exec stty echo
         puts ""
     }
     flush stdout
@@ -312,11 +312,11 @@
         fconfigure stdin -blocking true
         fconfigure stdin -buffering line
         fileevent stdin readable {}
-        exec stty cooked
+#        exec stty cooked
     } elseif {$mode == "raw"} {
         fconfigure stdin -blocking false
         fconfigure stdin -buffering none
-        exec stty raw
+#        exec stty raw
         fileevent stdin readable tac_handle_input
     }
 }