diff --git a/lang/m2/libm2/halt.c b/lang/m2/libm2/halt.c
index ca98a6969..1b504f904 100644
--- a/lang/m2/libm2/halt.c
+++ b/lang/m2/libm2/halt.c
@@ -15,10 +15,8 @@ static int (*proclist[MAXPROCS])();
 
 _cleanup()
 {
-	register int i;
-
-	for (i = callindex; --i >= 0;) {
-		(*proclist[i])();
+	while (--callindex >= 0)
+		(*proclist[callindex])();
 	}
 	callindex = 0;
 }