diff --git a/private/menu.rkt b/private/menu.rkt
index 813a26c..651a323 100644
--- a/private/menu.rkt
+++ b/private/menu.rkt
@@ -93,7 +93,9 @@
                           (let ((submenu (ww-menu-item-submenu item)))
                             (if (eq? submenu #f)
                                 (cb item)
-                                (menu-for-each submenu cb))))
+                                (menu-for-each submenu cb)))
+                          (f (cdr items))
+                          )
                         )
                     )
                   ))