diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index a8b0b098..bc7fb0de 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -229,9 +229,9 @@ WalkProcedure(procedure)
 	/* Generate code for this procedure
 	*/
 	C_pro_narg(procscope->sc_name);
+	TmpOpen(procscope);
 	DoPriority();
 	DoFilename();		/* ??? only when this procedure is exported? */
-	TmpOpen(procscope);
 
 	func_type = tp = RemoveEqual(ResultType(procedure->df_type));