Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r1249 -r1831
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 1249)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 1831)
@@ -6,9 +6,7 @@
 
 <Method name="IsCurrentSessionATerminalSession">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	
-	quit $IO["|TNT|"
+<Implementation><![CDATA[	quit $IO["|TNT|"
 ]]></Implementation>
 </Method>
 
@@ -22,17 +20,16 @@
 		"1.15":"pv", 
 		"1.97":"wv", 
 		"1.205":"wv", 
-		"1.127":"jbl", 
 		"1.138":"wro", 
 		"1.150":"pra", 
 		"1.195":"jcl", 
 		"1.206":"jcl", 
 		"1.204":"fma" , 
-		"1.95":"jbl",
 		"1.42":"mvi",
 		"1.51":"mvi",
 		"1.26":"pbo",
-		"1.191":"pje", 
+		"1.73":"sca",
+		"1.74":"sca",
 		:"")
 ]]></Implementation>
 </Method>
@@ -56,7 +53,7 @@
 <Implementation><![CDATA[
 	#dim GebruikerInitialenVanToestel As %String = $$$LCase(..GeefGebruikerInitialenVanToestel(Toestel))
 	 
-	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"jbl",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"pbo",1"pje"):GebruikerInitialenVanToestel, 1:"")
+	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"pbo",1"sca"):GebruikerInitialenVanToestel, 1:"")
 ]]></Implementation>
 </Method>
 </Class>