diff --git a/src/DrawResources/CURVES.tcl b/src/DrawResources/CURVES.tcl
index f85e7814da..e35b55aa21 100644
--- a/src/DrawResources/CURVES.tcl
+++ b/src/DrawResources/CURVES.tcl
@@ -13,6 +13,12 @@
 
 if { [info commands addmenu] == "" } { return }
 
+global theMenus
+if [info exists theMenus(Curves)] {
+  destroy [string trimright $theMenus(Curves) ".menu"]
+  unset theMenus(Curves)
+}
+
 addmenu Curves "Line"    {
     dialbox line name l origin {0 0 0} direction {1 0 0}
 }
diff --git a/src/DrawResources/SURFACES.tcl b/src/DrawResources/SURFACES.tcl
index 82968f6f69..f16e150550 100644
--- a/src/DrawResources/SURFACES.tcl
+++ b/src/DrawResources/SURFACES.tcl
@@ -13,6 +13,12 @@
 
 if { [info commands addmenu] == "" } { return }
 
+global theMenus
+if [info exists theMenus(Surfaces)] {
+  destroy [string trimright $theMenus(Surfaces) ".menu"]
+  unset theMenus(Surfaces)
+}
+
 proc dialanasurf {command sname args} {
     set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} "
     foreach l $args {append com " $l"}