diff --git a/contrib/x11/concurrent-widgets.factor b/contrib/x11/concurrent-widgets.factor
index f3998d4d42..433f1d1b7c 100644
--- a/contrib/x11/concurrent-widgets.factor
+++ b/contrib/x11/concurrent-widgets.factor
@@ -142,7 +142,7 @@ dup >r [ select-input ] with-window-object
 r> ;
 
 M: button handle-button-press-event ( event <button> -- )
-  swap drop button-action call ;
+nip button-action call ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! <menu>