Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3775 -r3776
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3775)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3776)
@@ -60,7 +60,7 @@
 		Set result = "lla"
 	}
 	If (result = "KCA") {
-		Set result = "kcu"
+		Set result = "jba"
 	}
 	quit result
 ]]></Implementation>
@@ -72,7 +72,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GebruikerInitialenVanToestel As %String = $$$LCase(..GeefGebruikerInitialenVanToestel(Toestel))
-	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"kcu"):GebruikerInitialenVanToestel, 1:"")
+	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"kcu"1"jba"):GebruikerInitialenVanToestel, 1:"")
 ]]></Implementation>
 </Method>
 </Class>