--- a/AbstractSettingsApplication.st	Thu May 15 18:11:43 2003 +0200
+++ b/AbstractSettingsApplication.st	Thu May 15 18:14:25 2003 +0200
@@ -346,6 +346,12 @@
     self modifiedChannel value:false.
 ! !
 
+!AbstractSettingsApplication methodsFor:'queries'!
+
+itemPathName
+    ^ self requestor getNameOfApplication:self.
+! !
+
 !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
 
 constantFoldingOptions
@@ -3016,7 +3022,7 @@
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.64 2003-05-14 17:43:26 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.65 2003-05-15 16:14:25 penk Exp $'
 ! !
 
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
@@ -3210,27 +3216,27 @@
 !
 
 createServerApplicationFor:aServerInstance
-    |settingsApp settingsAppPosition newItem openApps|
+    |settingsApp itemPathName newItem openApps|
 
     openApps := self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
-    ((openApps detect:[:app | app httpServerInstance == aServerInstance] ifNone:[nil]) notNil) ifTrue:[
+    (openApps contains:[:app | app httpServerInstance == aServerInstance]) ifTrue:[
         " already have an Item for this application "
         ^ self 
     ].
+
     settingsApp := HTTPServerSettingsAppl basicNew.
     settingsApp requestor:self requestor.
     settingsApp httpServerInstance:aServerInstance.
     settingsApp basicInitialize.
-    settingsAppPosition := requestor getNameOfApplication:self.
-    settingsAppPosition := settingsAppPosition , '/HTTPServer Port ', aServerInstance port asString.
-    newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:settingsAppPosition.
+    itemPathName := self itemPathName , '/HTTPServer Port ', aServerInstance port asString.
+    newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
     newItem application:settingsApp.
     self createdServerChanged.
     requestor expandItemForApplication:self.
     settingsApp initialize.
 !
 
-createServerSubApplicationsForRunningServer
+createServerSubApplicationsForRunningServers
 
     |runningServers|
 
@@ -3249,7 +3255,7 @@
         HTTPServer runningServers removeDependent:self.
         HTTPServer runningServers addDependent:self.
     ].
-    self createServerSubApplicationsForRunningServer.
+    self createServerSubApplicationsForRunningServers.
     self createdServerChanged.
     self modifiedChannel value:false.
 !
@@ -3333,7 +3339,7 @@
 !
 
 runningServersChanged
-    self createServerSubApplicationsForRunningServer.
+    self createServerSubApplicationsForRunningServers.
     self setPortOnFreePort.
 !
 
@@ -10859,5 +10865,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.64 2003-05-14 17:43:26 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.65 2003-05-15 16:14:25 penk Exp $'
+! !