Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r49758 -r59187
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 49758)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 59187)
@@ -136,10 +136,11 @@
 <FormalSpec>ComputerNaam:%String,Taak:APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim AdminPoort As %String = ..GeefAdminPoort()
 	#dim LogDetail As %String = " voor ComputerNaam '"_ComputerNaam_"'"
 	Try {
 		#dim ClientIP As %String = ##class(TECH.Process).GeefClientIP()
-		Set LogDetail = LogDetail _ " (IP-adres '"_ClientIP_"')"
+		Set LogDetail = LogDetail _ " (IP-adres '"_ClientIP_"' en admin-poort '"_AdminPoort_"')"
 		Set LogDetail = LogDetail _" is "_$S($IsObject(Taak):"volgende taak gevonden : ID='"_Taak.GeefID()_"' "_$$$CRLF_$$ObjToText^vhLib(Taak), 1:"GEEN TerminalNavigatieTaak gevonden.")
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -187,6 +188,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAdminPoort">
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $G(io)
+]]></Implementation>
+</Method>
+
 <Method name="ControleerComputerNaam">
 <FormalSpec>ComputerNaam:%String</FormalSpec>
 <Private>1</Private>