Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r77 -r98
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 77)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 98)
@@ -533,7 +533,7 @@
 	Set:(OneDS?1(1"*",1"WI")) arKlrDfl("WI")=$LB("SW","WI","SW","SW","DIA8","I")
 	Set:(OneDS?1(1"*",1"GI")) arKlrDfl("GI")=$LB("MG","LG","MG","MG","GRI8","I")
 	Set:(OneDS?1(1"*",1"ZI")) arKlrDfl("ZI")=$LB("BZ","BZ","BZ","BZ","BRO8","I")
-	Set:(OneDS?1(1"*",1"II")) arKlrDfl("II")=$LB("IN","DG","CR","IN","GRI8","I")
+	Set:(OneDS?1(1"*",1"II")) arKlrDfl("II")=$LB("IN","DG","IN","IN","GRI8","I")
 	Set:(OneDS?1(1"*",1"AI")) arKlrDfl("AI")=$LB("AL","LG","AL","AL","DIA8","I")
 	Set:(OneDS?1(1"*",1"BA")) arKlrDfl("BA")=$LB("BE","BE","CR","IN","FG","B")     ;  "BA" is obsolete 
 	Set:(OneDS?1(1"*",1"BI")) arKlrDfl("BI")=$LB("BI","EI","CR","IN","FG","B")     ;  "BI" is obsolete 
@@ -543,6 +543,7 @@
 	Set:(OneDS?1(1"*",1"WA")) arKlrDfl("WA")=$LB("SW","WI","SW","SW","-","A")
 	Set:(OneDS?1(1"*",1"GA")) arKlrDfl("GA")=$LB("MG","LG","MG","MG","-","A")
 	Set:(OneDS?1(1"*",1"ZA")) arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","-","A")
+	Set:(OneDS?1(1"*",1"IA")) arKlrDfl("IA")=$LB("IN","DG","IN","IN","GRI8","A")
 	Quit $S(OneDS="*":"", 1:$G(arKlrDfl(OneDS)))
 ]]></Implementation>
 </Method>