Index: APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml
===================================================================
diff -u -r66925 -r66930
--- APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66925)
+++ APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66930)
@@ -32,7 +32,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ServerNaam=$$$Implementation(ServerNaam,"fop")
+	Set ..ServerNaam=$$$If($$$HasLength($G(ServerNaam)),ServerNaam,"fop")
 	Quit $$$OK
 ]]></Implementation>
 </Method>