@@ -1,8 +1,8 @@
 # -*- tclsh -*-
 # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
-# LAST MODIFICATION: "Sun Sep 19 22:09:08 1999 (joze)"
+# LAST MODIFICATION: "Tue Sep 21 21:19:07 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -766,12 +766,11 @@
 
 	return [string trim ${new}]
 }
 
 proc Alert {} {
-	puts -nonewline \a
-	flush stdout
+	::tclreadline::readline bell
 }
 
 #**
 # get the longest common completion
 # e.g. str == {tcl_version tclreadline_version tclreadline_library}
@@ -3482,12 +3481,12 @@
 
 proc tclreadline::complete(readline) {text start end line pos mod} {
 	set cmd [Lindex ${line} 1]
 	switch -- ${pos} {
 		1 { return [CompleteFromList ${text} {
-			read initialize write add complete
-			customcompleter builtincompleter eofchar reset-terminal}]
+			read initialize write add complete customcompleter
+			builtincompleter eofchar reset-terminal bell}]
 		}
 		2 {
 			switch -- ${cmd} {
 				read {}
 				initialize {}