Index: TECH/Process.cls.xml
===================================================================
diff -u -r1984 -r2825
--- TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 1984)
+++ TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 2825)
@@ -39,6 +39,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefClientHostName">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Process = ..%New()
+	#dim RSet As %ResultSet = Process.ExecuteQuery($JOB)
+	Do RSet.%Next()
+	#Dim ClientHostNamePlusPoort As %String = RSet.ClientHostName
+	Quit $Piece(ClientHostNamePlusPoort,"/",1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefJob">
 <Description>
 return SYS.Process (namespace %SYS)</Description>