diff --git a/Objects/moduleobject.c b/Objects/moduleobject.c
index 9d8e1820f33..7377a98235a 100644
--- a/Objects/moduleobject.c
+++ b/Objects/moduleobject.c
@@ -92,8 +92,10 @@ static void
 module_dealloc(m)
 	moduleobject *m;
 {
-	if (m->md_dict != NULL)
+	if (m->md_dict != NULL) {
+		mappingclear(m->md_dict);
 		DECREF(m->md_dict);
+	}
 	free((char *)m);
 }