Index: tclreadlineSetup.tcl.in
==================================================================
--- tclreadlineSetup.tcl.in
+++ tclreadlineSetup.tcl.in
@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
 # FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Tue Aug 24 03:04:10 1999 (joze)"
+# LAST MODIFICATION: "Wed Aug 25 02:00:47 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -279,11 +279,13 @@
         # puts stderr "(SubCmd) $new_start $new_end $new_line"
         return \
             [tclreadline::ScriptCompleter $part $new_start $new_end $new_line]
     } elseif {0 == [set pos [tclreadline::PartPosition $part $start $end $line]]} {
         # puts stderr "(PartPosition) $part $start $end $line"
-        set matches [array names known_cmds "[string trim ${part}]*"]
+        # set matches [array names known_cmds "[string trim ${part}]*"]
+        set cmd "[string trim ${part}]*"
+        set matches "[info commands $cmd] [info proc $cmd]"
         # puts matches=|$matches|
         if {1 == [llength $matches]} { ; # unique match
             return $matches
         } elseif {"" != $matches} {
             set common [tclreadline::GetCommon ${matches}]