Index: TECH/Process.cls.xml
===================================================================
diff -u -r321 -r325
--- TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 321)
+++ TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 325)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.Process">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -23,6 +24,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefClientIP">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Process = ..%New()
+	Set RSet = Process.ExecuteQuery($JOB)
+	Do RSet.%Next()
+	set ClientIPAddress = RSet.ClientIPAddress
+	if ClientIPAddress="127.0.0.1" { 
+		set ClientIPAddress=$$GetIP^BLDSYSLOG($ZU(110))
+	}
+	Quit ClientIPAddress
+]]></Implementation>
+</Method>
+
 <Method name="GeefJob">
 <Description>
 return SYS.Process (namespace %SYS)</Description>
@@ -42,5 +58,18 @@
 <Implementation><![CDATA[	Do $ZUTIL(4,ProcessID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStackTrace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>From:%Integer=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Txt = ""
+	For i=From:1:$ESTACK { 
+		Set Txt=Txt_$$$CRLF_i_"   "_$STACK($STACK-i)_" : "_$STACK($STACK-i,"PLACE")_" -> "_$STACK($STACK-i,"MCODE")
+	}
+	Quit Txt
+]]></Implementation>
+</Method>
 </Class>
 </Export>