Index: tclreadlineCompleter.tcl
==================================================================
--- tclreadlineCompleter.tcl
+++ tclreadlineCompleter.tcl
@@ -1,8 +1,8 @@
 # -*- tclsh -*-
 # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
-# LAST MODIFICATION: "Tue Sep 21 21:19:07 1999 (joze)"
+# LAST MODIFICATION: "Thu Sep 23 02:16:55 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -1525,21 +1525,26 @@
 		#
 		if {![string length ${namespc}]} {
 			set namespc ::
 		}
 		if {[string length [uplevel [info level] \
-			namespace eval ${namespc} [list ::info proc $alias]]]} {
-			set args [uplevel [info level] \
-			namespace eval ${namespc} [list info args $alias]]
-			set arg [lindex $args [expr $pos - 1]]
-			if {"" != $arg && "args" != $arg} {
-				if {[uplevel [info level] namespace eval \
-					${namespc} [list info default $alias $arg junk]]} {
-					return [DisplayHints ?$arg?]
-				} else {
-					return [DisplayHints <$arg>]
-				}
+			namespace eval ${namespc} [list ::info proc $alias]]]
+		} {
+			if ![string length [string trim $part]] {
+				set args [uplevel [info level] \
+				namespace eval ${namespc} [list info args $alias]]
+				set arg [lindex $args [expr $pos - 1]]
+				if {"" != $arg && "args" != $arg} {
+					if {[uplevel [info level] namespace eval \
+						${namespc} [list info default $alias $arg junk]]} {
+							return [DisplayHints ?$arg?]
+						} else {
+							return [DisplayHints <$arg>]
+						}
+				}
+			} else {
+				return ""; # enable file name completion
 			}
 		}
 
 		# check if the command is an object of known class.
 		#