Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r29992 -r29997
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 29992)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 29997)
@@ -652,7 +652,7 @@
 	. Set:KLId'="" KlantNaam=$P(^KKL(KLId,0),"\",2)
 	Set ..oRequest.Customer=$G(KlantNaam)
 	Set ..oRequest.Prioriteit=$G(Priority,5)
-	Set ..oRequest.Server=$$$Server
+	Set ..oRequest.Server = ##class(TECH.Context).Instance().GeefSystemAPI().GeefServerNaam()
 	Set ..oRequest.CallBack=$G(CallBack)
 	If $L($G(MachineID)) Do
 	. Set ..MachineID=MachineID