Index: tclreadlineCompleter.tcl
==================================================================
--- tclreadlineCompleter.tcl
+++ tclreadlineCompleter.tcl
@@ -1,8 +1,8 @@
 # -*- tclsh -*-
-# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
-# LAST MODIFICATION: "Thu Sep 16 02:47:02 1999 (joze)"
+# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
+# LAST MODIFICATION: "Thu Sep 16 02:53:18 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -226,11 +226,11 @@
 	set executables 0
 	foreach dir [split $env(PATH) :] {
 		if {[catch [list set files [glob -nocomplain ${dir}/*]]]} { continue }
 		foreach file $files {
 			if {[file executable $file]} {
-				lappend executables [file tail $file]
+				lappend executables [file tail ${file}]
 			}
 		}
 	}
 }
 
@@ -256,15 +256,15 @@
 					regsub {#.*} ${line} {} line
 					if {[llength ${line}] >= 2} {
 						lappend hosts [lindex ${line} 1]
 					}
 				}
-				close $id
+				close ${id} 
 			} 
 		}
 	}
-	return $hosts
+	return ${hosts} 
 }
 
 #**
 # never return an empty string, never complete.
 # This is useful for showing options lists for example.