[sawfish] really fix poweroff issue

[Christopher Bratusek <chrisb src gnome org>]

commit 2111f944f485a6f78bfccf93963f238f7918c628
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Wed Oct 13 16:23:43 2010 +0200

    really fix poweroff issue

 ChangeLog                |    3 +++
 lisp/sawfish/wm/menus.jl |   10 +++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index abe3570..b063d8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-10-13  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/menus.jl: "Poweroff" bugfix (again).
+
 2010-10-12  Teika kazura <teika lavabit com>
 	* lisp/sawfish/wm/menus.jl: "Poweroff" bugfix.
 	In 1.7.0, poweroff related commands under root-menu -> session can't
diff --git a/lisp/sawfish/wm/menus.jl b/lisp/sawfish/wm/menus.jl
index 6095753..64e2444 100644
--- a/lisp/sawfish/wm/menus.jl
+++ b/lisp/sawfish/wm/menus.jl
@@ -171,18 +171,18 @@ before killing it.")
 
   (define (add-poweroff-menu)
     "Add poweroff related menu items to Session sub-menu."
-    (user-eval '(access-structures '(sawfish.wm.commands.poweroff)))
+    (user-require 'sawfish.wm.commands.poweroff)
     (let ((menu (assoc (_ "Sessi_on") root-menu)))
       (when menu
 	(nconc menu `(()
 		      (,(_ "_Reboot System")
-		       (sawfish.wm.commands.poweroff#poweroff 'reboot))
+		       (poweroff 'reboot))
 		      (,(_ "_Shutdown System")
-		       (sawfish.wm.commands.poweroff#poweroff 'halt))
+		       (poweroff 'halt))
 		      (,(_ "S_uspend System")
-		       (sawfish.wm.commands.poweroff#poweroff 'suspend))
+		       (poweroff 'suspend))
 		      (,(_ "_Hibernate System")
-		       (sawfish.wm.commands.poweroff#poweroff 'hibernate)))))))
+		       (poweroff 'hibernate)))))))
 
   (define (menu-start-process)
     (when menu-timer