Hide forms before discarding them.

diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index a4af2df189d78b59b9ee8954f768f65784fc2cc3..92373715ed49567db42a9cf4c3cecbfa8f572969 100644 (file)
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1831,6 +1831,7 @@ form_dealloc(f)
        formobject *f;
 {
        releaseobjects(f->ob_form);
+       fl_hide_form(f->ob_form);
        fl_free_form(f->ob_form);
        DEL(f);
 }