[sawfish] lisp/sawfish/wm/ext/fdo-menu.jl: small fix in the exile function [Matthew Love]

[Christopher Bratusek <chrisb src gnome org>]

commit 9ae326a5d30cc2d76f3fd28e89710b41b4ea54ba
Author: chrisb <zanghar freenet de>
Date:   Wed Sep 23 18:29:23 2009 +0200

    lisp/sawfish/wm/ext/fdo-menu.jl: small fix in the exile function [Matthew Love]

 ChangeLog                       |    2 ++
 lisp/sawfish/wm/ext/fdo-menu.jl |    3 ++-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1ed75e1..236640e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2009-09-23  Christopher Bratusek <zanghar freenet de>
 	* man/news.texi: news items for 1.6.0 are partially rewritten.
 
+	* lisp/sawfish/wm/ext/fdo-menu.jl: small fix in the exile function [Matthew Love]
+
 2009-09-22  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/viewport.jl: string-change
 
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