Object subclass: #SMClient instanceVariableNames: 'client' classVariableNames: '' poolDictionaries: '' category: 'SMLoader'
client ^ client ifNil: [ client := self class assureWebClient new allowRedirect: false ; yourself ]