--- 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 $'
+! !
+