--- tcldesk/find.tcl.orig	Sun Nov 14 16:07:47 1999
+++ tcldesk/find.tcl	Sun May 28 16:30:32 2000
@@ -805,7 +805,7 @@
     set flist ""
     set list [$dlb get]
     foreach f $fl {
-	lappend flist [lindex [lindex $list $f] 0]
+	lappend flist [lindex [split [lindex $list $f] \t] 0]
     }
 
     set nfiles 0
