Index: tclreadlineSetup.tcl.in
==================================================================
--- tclreadlineSetup.tcl.in
+++ tclreadlineSetup.tcl.in
@@ -1,8 +1,8 @@
 #!/usr/locanl/bin/tclsh
-# FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Fri Sep  3 10:21:15 1999 (joze)"
+# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
+# LAST MODIFICATION: "Fri Sep  3 16:16:44 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -113,12 +113,12 @@
 # - vwait
 # - while # TODO
 # 
 
 
-package provide tclreadline @TCLREADLINE_VERSION@
-# package provide tclreadline 0.9
+# package provide tclreadline @TCLREADLINE_VERSION@
+package provide tclreadline 0.9
 
 proc unknown args {
 
     global auto_noexec auto_noload env unknown_pending tcl_interactive
     global errorCode errorInfo
@@ -1635,11 +1635,11 @@
     }
     return ""
 }
 
 proc complete(lsort) {text start end line pos mod} {
-    set options [MenuFromList ${mod} {
+    set options [Menu ${mod} {
         -ascii -dictionary -integer -real -command
         -increasing -decreasing -index
     }]
     set matches [ListCompletion ${text}]
     return [string trim "${matches} ${options}"]