diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index b0b68e1f3..185c8f613 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -229,6 +229,7 @@ WalkProcedure(procedure)
 	/* Generate code for this procedure
 	*/
 	C_pro_narg(procscope->sc_name);
+	C_ms_par(procedure->df_type->prc_nbpar);
 	TmpOpen(procscope);
 	DoPriority();
 	DoFilename();		/* ??? only when this procedure is exported? */