Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r2481 -r2825
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2481)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2825)
@@ -205,8 +205,10 @@
 			}
 			
 			Set Stream = ""
-			
+						
 			Do ##class(%File).Delete("c:\"_FileName)
+			
+			Set:("" = ..ComputerNaam) ..ComputerNaam = ##class(TECH.Process).GeefClientHostName()
 		}
 	}
 	
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>