--- ray/src/util/getfile3.6.tcl	1994/10/28 20:14:43	2.5
+++ ray/src/util/getfile3.6.tcl	1994/11/30 16:04:39	2.6
@@ -174,7 +174,7 @@ proc update_dir w {			# Update working directory
 	set curdir [pwd]
 	$w.fm.fl delete 0 end
 	set ls ../
-	foreach f [glob *] {
+	foreach f [glob -nocomplain *] {
 		if [file isdirectory $f] {
 			lappend ls $f/
 		}