Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3860 -r3873
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3860)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3873)
@@ -74,7 +74,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"fma",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"jba",1"kge",1"ash",1"ghe"):GebruikerInitialenVanToestel, 1:"")
+	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"fma",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"jba",1"kge",1"ash",1"ghe",1"jlm"):GebruikerInitialenVanToestel, 1:"")
 	// Uitgefaseerd :  ,1"jcl",1"mvi",1"kca",1"kcu",
 ]]></Implementation>
 </Method>