Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r2519 -r2949
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 2519)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 2949)
@@ -23,6 +23,7 @@
 		"1.205":"wv", 
 		"1.138":"wro", 
 		"1.150":"pra", 
+		"1.191":"thb",
 		"1.195":"jcl", 
 		"1.206":"jcl", 
 		"1.204":"fma" , 
@@ -62,7 +63,7 @@
 <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"):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"):GebruikerInitialenVanToestel, 1:"")
 ]]></Implementation>
 </Method>
 </Class>