Index: commands.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v
retrieving revision 1.54
diff -u -r1.54 commands.lisp
--- commands.lisp	18 Aug 2005 04:30:09 -0000	1.54
+++ commands.lisp	7 Sep 2005 07:53:24 -0000
@@ -471,7 +471,8 @@
       (loop for gesture in keystroke-accelerators
 	    for item in keystroke-items
 	    do (funcall function
-			(command-menu-item-name item)
+			(when (slot-boundp item 'menu-name)
+			  (command-menu-item-name item))
 			gesture
 			item)))))
 
