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()
 		}
 	}