diff --git a/Routines/%ut.m b/Routines/%ut.m
index 2faf960..e8e51ac 100644
--- a/Routines/%ut.m
+++ b/Routines/%ut.m
@@ -55,7 +55,7 @@ D EN1(.%utROU,%utLIST)
 	; ZEXCEPT: %ut  -- NEWED IN EN
 	; ZEXCEPT: GetCPUTime,Process -- parts of Cache method names
 	; ZEXCEPT: IOM - if present margin width defined by Kernel
-	N %utERRL,%utK,%utI,%utJ,%utSTRT,%utONLY,%utROU1
+	N %utERRL,%utK,%utI,%utJ,%utSTRT,%utONLY,%utROU1,I
 	; ZEXCEPT: %utVERB   -- ARGUMENT TO EN
 	I '+$G(%utVERB) S %utVERB=0
 	;
diff --git a/Routines/%ut1.m b/Routines/%ut1.m
index 502356d..6bbe136 100644
--- a/Routines/%ut1.m
+++ b/Routines/%ut1.m
@@ -32,7 +32,7 @@
 	S %ut("ENTN")=0 ; Number of test, sub to %utUETRY.
 	;
 	; This stanza and everything below is for collecting @TEST.
-	N I,LIST
+	N I,J,LIST
 	S FLAG=$G(FLAG,0)
 	S I=$L($T(@(U_%utROU))) I I<0 Q "-1^Invalid Routine Name"
 	D NEWSTYLE(.LIST,%utROU)