'From Squeak3.1alpha of 5 February 2001 [latest update: #4083] on 27 May 2001 at 2:00:25 pm'! "Change Set: altUrlFix Date: 27 May 2001 Author: Bob Arning Handle case where #altUrl is "! !Project methodsFor: 'resources' stamp: 'RAA 5/27/2001 13:55'! resourceUrl "compose my base url for resources on the server" | firstURL serverList | serverList _ self serverList. serverList isEmptyOrNil ifTrue: [^'']. firstURL _ serverList first altUrl ifNil: [serverList first url]. firstURL last == $/ ifFalse: [firstURL _ firstURL, '/']. ^ firstURL, self resourceDirectoryName ! !