@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
 # FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Sun Aug 22 22:30:43 1999 (joze)"
+# LAST MODIFICATION: "Sun Aug 22 23:54:09 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -161,11 +161,11 @@
         }
     }
     return ${part}
 }
 
-proc tclreadline::vars_cmds_completer {part start end line} {
+proc tclreadline::ScriptCompleter {part start end line} {
     if {{$} == [string index $part 0]} {
         # variable completion. Check first, if the
         # variable starts with a plain `$' or should
         # be enclosed in braces.
         #
@@ -228,11 +228,11 @@
     uplevel #0 {
 
         if {[info commands ::tclreadline::readline] == ""} {
             ::tclreadline::Init
         }
-        tclreadline::readline customcompleter tclreadline::vars_cmds_completer
+        tclreadline::readline customcompleter tclreadline::ScriptCompleter
 
         if {[catch {set a [::tclreadline::prompt1]}] \
             && [info nameofexecutable] != ""} {
 
             namespace eval ::tclreadline {