--- a/AbstractSettingsApplication.st Thu Mar 28 19:19:30 2013 +0100
+++ b/AbstractSettingsApplication.st Fri Mar 29 00:29:00 2013 +0100
@@ -5569,7 +5569,7 @@
^ self
].
- serverToStart := serverClass runningServers asSet.
+ serverToStart := serverClass runningServers asNewSet.
serverToStart addAll:self class createdServers.
serverToStart isEmpty ifTrue:[
^ self
@@ -5617,7 +5617,7 @@
serverClass := self serverClass.
(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
- instances := serverClass runningServers asSet.
+ instances := serverClass runningServers asNewSet.
instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
collect:[:aApp| aApp httpServerInstance]).
instances := instances select:[:i | i port notNil].
@@ -17563,10 +17563,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.461 2013-03-19 11:50:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.462 2013-03-28 23:29:00 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.461 2013-03-19 11:50:07 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.462 2013-03-28 23:29:00 stefan Exp $'
+! !
+