$NetBSD: patch-ai,v 1.1.1.1 2002/07/03 09:27:00 dmcmahill Exp $

--- 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