diff --git a/p/GPLUNIT.m b/p/GPLUNIT.m
index b51873b..7f50998 100644
--- a/p/GPLUNIT.m
+++ b/p/GPLUNIT.m
@@ -133,7 +133,7 @@ TESTALL(RNM) ; RUN ALL THE TESTS
           . S TOTF=TOTF+TFAILED
           . S $P(TSTS(ZI),"^",2)=TPASSED
           . S $P(TSTS(ZI),"^",3)=TFAILED
-          F I=1:1:TSTS(0) D  ;
+          F ZI=1:1:TSTS(0) D  ;
           . W "TEST=> ",$P(TSTS(ZI),"^",1)
           . W " PASSED=>",$P(TSTS(ZI),"^",2)
           . W " FAILED=>",$P(TSTS(ZI),"^",3),!