Index: vhUnitTest/WS/Blum/OnlineProductConfigurator/TestMaakJSONResultBericht.cls.xml
===================================================================
diff -u -r41033 -r41034
--- vhUnitTest/WS/Blum/OnlineProductConfigurator/TestMaakJSONResultBericht.cls.xml	(.../TestMaakJSONResultBericht.cls.xml)	(revision 41033)
+++ vhUnitTest/WS/Blum/OnlineProductConfigurator/TestMaakJSONResultBericht.cls.xml	(.../TestMaakJSONResultBericht.cls.xml)	(revision 41034)
@@ -13,7 +13,7 @@
 	#dim JSONResult As %String = ..MaakJSONResultBericht(Webshop)
 	Set JSONResult = ##class(TECH.StringUtils).ToUpper(JSONResult)
 	
-	#dim ExpectedResult As %String = "{ ""forwardUrl"" : ""http://" _$ZUTIL(110) _":8700/vhisie/vhisie.html?aTaal=N&WebshopID=1"" }"
+	#dim ExpectedResult As %String = "{ ""forwardUrl"" : ""http://" _##class(TECH.SystemInformation).%New().GeefComputerNaam() _":8700/vhisie/vhisie.html?aTaal=N&WebshopID=1"" }"
 	Set ExpectedResult = ##class(TECH.StringUtils).ToUpper(ExpectedResult)
 	
 	Do $$$AssertEquals(JSONResult, ExpectedResult)