--- a/AbstractSettingsApplication.st	Thu Apr 21 19:31:27 2016 +0200
+++ b/AbstractSettingsApplication.st	Fri Apr 22 12:49:00 2016 +0200
@@ -943,6 +943,7 @@
 !
 
 itemPathName
+    settingsDialog isNil ifTrue:[^ ''].
     ^ settingsDialog getNameOfApplication:self.
 ! !
 
@@ -5967,6 +5968,7 @@
     Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
     Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
     Smalltalk loadPackage:'stx:goodies/webServer/ui'.
+    self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
 !
 
 removeAllServerSubApplications
@@ -6018,15 +6020,18 @@
     ^ hasCreatedServerChannel.
 !
 
+hasWebServerClassesLoaded
+    ^ self hasHTTPServerClass and:[self hasFCGIServerClass].
+!
+
 hasWebServerClassesLoadedHolder
-    ^ BlockValue
-        forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
+    ^ BlockValue forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
 !
 
 hasWebServerClassesNotLoadedHolder
     hasWebServerClassesNotLoadedHolder isNil ifTrue:[
         hasWebServerClassesNotLoadedHolder := true asValue.
-        hasWebServerClassesNotLoadedHolder value:(self hasHTTPServerClass not or:[self hasFCGIServerClass not]).
+        hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
     ].
     ^ hasWebServerClassesNotLoadedHolder.
 !