@@ -1,8 +1,8 @@
 #!/usr/locanl/bin/tclsh
 # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Wed Sep 15 15:23:30 1999 (joze)"
+# LAST MODIFICATION: "Thu Sep 16 18:06:23 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -136,11 +136,11 @@
 	return -code error "invalid command name \"$name\""
 }
 
 namespace eval tclreadline {
 
-namespace export Setup Glob Loop InitTclCmds InitTkCmds Print ls
+namespace export Setup Loop InitTclCmds InitTkCmds Print ls
 
 proc ls {args} {
 	if {[exec uname -s] == "Linux"} {
 		eval exec ls --color -FC [Glob $args]
 	} else {
@@ -203,10 +203,12 @@
 					::tclreadline::readline write \
 					[::tclreadline::HistoryFileGet]
 				} ::tclreadline::errorMsg]} {
 					puts stderr $::tclreadline::errorMsg
 				}
+
+				::tclreadline::readline reset-terminal
 
 				if [catch "eval ::tclreadline::Exit $args" message] {
 					puts stderr "error:"
 					puts stderr "$message"
 				}
@@ -247,10 +249,12 @@
 proc HistoryFileGet {} {
 	variable historyfile
 	return $historyfile
 }
 
+# obsolete
+#
 proc Glob {string} {
 
 	set commandstring ""
 	foreach name $string {
 		set replace [glob -nocomplain -- $name]