From 87a7dd1f5843f1a7682aedbdada0bddf3cdcaebc Mon Sep 17 00:00:00 2001
From: Christopher Edwards <Christopher.Edwards@yottadb.com>
Date: Fri, 16 Nov 2018 10:55:43 -0500
Subject: [PATCH] Add newing of variables used within various line labels

Two variables were missed in the NEW command that cause the variables
to leak out of the unit test framework and be left in the stack
---
 Routines/%ut.m  | 2 +-
 Routines/%ut1.m | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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)