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