From 3afdbff1dc9e0e74ed69ef06eff39f89dd520663 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Nov 2001 04:04:23 +0000
Subject: [PATCH] .

original commit: 5c87437c1a1ea6c5fd5436512c3bcfb0a71a6312
---
 collects/framework/private/group.ss | 1 +
 1 file changed, 1 insertion(+)

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