diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index a4af2df189d..92373715ed4 100644
--- 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);
 }