--- fdump.lisp.orig     2008-04-18 07:49:55.000000000 +0200
+++ fdump.lisp  2008-04-18 07:50:12.000000000 +0200
@@ -79,21 +79,21 @@
             (*print-pretty* t))
         (prin1 foo fp)))))
 
-(defcommand dump-group-to-file (file) (:rest "Dump To File: ")
+(defcommand dump-group-to-file (file) ((:rest "Dump To File: "))
   "Dumps the frames of the current group of the current screen to the named file."
   (dump-to-file (dump-group (current-group)) file)
   (message "Group dumped"))
 
 (defcommand-alias dump-group dump-group-to-file) 
 
-(defcommand dump-screen-to-file (file) (:rest "Dump To File: ")
+(defcommand dump-screen-to-file (file) ((:rest "Dump To File: "))
   "Dumps the frames of all groups of the current screen to the named file"
   (dump-to-file (dump-screen (current-screen)) file)
   (message "Screen dumped"))
 
 (defcommand-alias dump-screen dump-screen-to-file)
 
-(defcommand dump-desktop-to-file (file) (:rest "Dump To File: ")
+(defcommand dump-desktop-to-file (file) ((:rest "Dump To File: "))
   "Dumps the frames of all groups of all screens to the named file"
   (dump-to-file (dump-desktop) file)
   (message "Desktop dumped"))