[patch] fdo-menu

[Matthew Love <matth love gmail com>]

Hi.  here is a small one line patch that fixes a small bug in the newly
added exile funcion of fdo-menu.

Cheers

diff --git a/lisp/sawfish/wm/ext/fdo-menu.jl b/lisp/sawfish/wm/ext/fdo-menu.jl
index 4673259..36f58e7 100644
--- a/lisp/sawfish/wm/ext/fdo-menu.jl
+++ b/lisp/sawfish/wm/ext/fdo-menu.jl
@@ -284,7 +284,8 @@
 	  (setq fdo-list (append fdo-list (cons (cons "Name" "Unknown\n")))))
       (if (assoc "Categories" fdo-list)
 	  (rplacd (assoc "Categories" fdo-list) "Exile\n")
-	(setq fdo-list (append fdo-list (cons (cons "Categories" "Exile\n"))))))
+	(setq fdo-list (append fdo-list (cons (cons "Categories" "Exile\n")))))
+      fdo-list)
 
     (define (fdo-check-exile fdo-list)
       (if fdo-list

-- 
Matthew Love