*** delete.tcl.orig	Sun Nov 14 14:07:47 1999
--- delete.tcl	Thu Nov 18 23:39:04 1999
***************
*** 381,392 ****
  	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..."
  	    dsk_refresh $tkdesk(trashdir)
  	}
      }
--- 381,392 ----
  	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) $tlist" "Deleting $anum $fll..."
  	    dsk_refresh $tkdesk(trashdir)
  	}
      }