diff --git a/library/ui/gadgets/presentations.factor b/library/ui/gadgets/presentations.factor
index 1a2a7d82f5..071866af7a 100644
--- a/library/ui/gadgets/presentations.factor
+++ b/library/ui/gadgets/presentations.factor
@@ -30,9 +30,13 @@ C: presentation ( button object command -- button )
     make-pile 1 over set-pack-fill ;
 
 : operations-menu ( presentation -- gadget )
-    dup presentation-object
-    dup object-operations <commands-menu>
-    swap show-menu ;
+    dup presentation-command [
+        drop
+    ] [
+        dup presentation-object
+        dup object-operations <commands-menu>
+        swap show-menu
+    ] if ;
 
 : invoke-presentation ( presentation -- )
     dup presentation-object swap presentation-command