Index: menubar-x.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/menubar-x.c,v
retrieving revision 1.36
diff -u -r1.36 menubar-x.c
--- src/menubar-x.c	2003/01/12 11:08:19	1.36
+++ src/menubar-x.c	2003/02/04 06:20:23
@@ -487,6 +487,11 @@
       assert (wv && wv->type == CASCADE_TYPE && wv->contents);
       replace_widget_value_tree (hack_wv, wv->contents);
       free_popup_widget_value_tree (wv);
+      /* Now that we've destructively modified part of the widget value
+	 hierarchy, our list of protected callbacks will no longer be
+	 valid, so we need to recompute it. */
+      ungcpro_popup_callbacks (id);
+      gcpro_popup_callbacks (id);
     }
   else if (!POPUP_DATAP (FRAME_MENUBAR_DATA (f)))
     return;