diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index f51586a3808..2d26533f1f0 100644
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1816,7 +1816,8 @@ form_dealloc(f)
 	formobject *f;
 {
 	releaseobjects(f->ob_form);
-	fl_hide_form(f->ob_form);
+	if (f->ob_form->visible)
+		fl_hide_form(f->ob_form);
 	fl_free_form(f->ob_form);
 	DEL(f);
 }