--- tcldesk/delete.tcl.orig	Sun Nov 14 16:07:47 1999
+++ tcldesk/delete.tcl	Sun May 28 16:30:32 2000
@@ -381,12 +381,12 @@
 	if {[cb_okcancel "Empty trash can?\nThis will delete ALL files in the trash can!"] == 0} {
 	    dsk_sound dsk_really_deleting
 	    if {$anum == 1} {set fll "File"} {set fll "Files"}
-	    #set tlist ""
-	    #foreach f $alist {
-	    #	 lappend tlist [string trimright \
-	    #		 $tkdesk(trashdir)/$f " "]
-	    #}
-	    dsk_bgexec "$tkdesk(cmd,rm) .* *" "Deleting $anum $fll..."
+	    set tlist ""
+	    foreach f $alist {
+	    	 lappend tlist [string trimright \
+	    		 $tkdesk(trashdir)/$f " "]
+	    }
+	    dsk_bgexec "$tkdesk(cmd,rm) $tlist" "Deleting $anum $fll..."
 	    dsk_refresh $tkdesk(trashdir)
 	}
     }