--- tcldesk/appbar.tcl.orig	Sun Nov 14 16:07:47 1999
+++ tcldesk/appbar.tcl	Sun May 28 16:30:32 2000
@@ -631,12 +631,13 @@
     }
 }
 
-proc _appbar_dd_action {cmd flist} {
+proc _appbar_dd_action {cmd args} {
     global tkdesk
 
     catch "wm withdraw $tkdesk(dd_token_window)"
     update
     
+    set flist $args
     if {[string first %A $cmd] > -1} {
 	set cmd [string_replace $cmd %A $flist]
     } else {