diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index 0d722460..730a2ac7 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -55,6 +55,7 @@
 	  [define remove-windows-menu
 	    (lambda (frame)
 	      (let* ([menu (get-windows-menu frame)])
+		(map (lambda (i) (send i delete)) (send menu get-items))
 		(set! windows-menus
 		      (remove
 		       menu