--- a/AbstractSettingsApplication.st	Wed Sep 10 18:19:56 2003 +0200
+++ b/AbstractSettingsApplication.st	Thu Sep 11 14:53:22 2003 +0200
@@ -3382,7 +3382,7 @@
         instances := HTTPServer runningServers asSet.
         instances addAll:((self settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp| aApp httpServerInstance]).
         highestUsedPortNr := instances 
-                                inject:(HTTPServer port - 1) 
+                                inject:(HTTPServer defaultPort - 1) 
                                 into:[:maxSoFar :thisServer | thisServer port max:maxSoFar].
 
         portToUse := highestUsedPortNr + 1
@@ -10897,5 +10897,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.104 2003-09-10 15:31:04 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.105 2003-09-11 12:53:06 cg Exp $'
+! !