--- a/AbstractSettingsApplication.st	Wed Apr 22 19:38:11 2009 +0200
+++ b/AbstractSettingsApplication.st	Thu Apr 23 16:13:13 2009 +0200
@@ -4214,19 +4214,20 @@
         " already have an Item for this application "
         ^ self 
     ].
-
-    settingsApp := HTTPServerSettingsAppl basicNew.
-    settingsApp settingsDialog:self settingsDialog.
-    settingsApp httpServerInstance:aServerInstance.
-    settingsApp defaultSettingsApplication:false.
-    settingsApp basicInitialize.
-    itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
-    newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
-    newItem application:settingsApp.
-    self createdServerChanged.
-    self settingsDialog expandItemForApplication:self.
-    settingsApp readSettings.
-    settingsApp initialize.
+    HTTPServerSettingsAppl notNil ifTrue:[
+        settingsApp := HTTPServerSettingsAppl basicNew.
+        settingsApp settingsDialog:self settingsDialog.
+        settingsApp httpServerInstance:aServerInstance.
+        settingsApp defaultSettingsApplication:false.
+        settingsApp basicInitialize.
+        itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
+        newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
+        newItem application:settingsApp.
+        self createdServerChanged.
+        self settingsDialog expandItemForApplication:self.
+        settingsApp readSettings.
+        settingsApp initialize.
+    ].
 !
 
 createServerForClass:serverClass
@@ -15092,5 +15093,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.316 2009-02-26 21:37:09 stefan Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.317 2009-04-23 14:13:13 cg Exp $'
+! !