Index: image2.tcl
===================================================================
RCS file: /cvsroot/tktoolkit/tk/library/demos/image2.tcl,v
retrieving revision 1.2
diff -U3 -r1.2 image2.tcl
--- image2.tcl	1998/09/14 18:23:29	1.2
+++ image2.tcl	2001/08/08 17:53:48
@@ -20,7 +20,7 @@
     global dirName
 
     $w.f.list delete 0 end
-    foreach i [lsort [glob [file join $dirName *]]] {
+    foreach i [lsort [glob -directory $dirName *]] {
 	$w.f.list insert end [file tail $i]
     }
 }
