@@ -1,8 +1,8 @@
 #!/usr/locanl/bin/tclsh
-# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Tue Aug 31 03:32:02 1999 (joze)"
+# FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
+# LAST MODIFICATION: "Wed Sep  1 19:24:22 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -1457,10 +1457,11 @@
                 if {"exists" == $cmd} {
                     set do vars
                 } else {
                     set do $cmd
                 }
+                # puts stderr [list complete(info) level = [info level]]
                 return \
                 [Format [uplevel 2 info ${do} "${mod}*"] $text]
             }
         }
     }