Göran Krampe uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-gk.105.mcz

==================== Summary ====================

Name: SMBase-gk.105
Author: gk
Time: 11 April 2010, 9:40:15.283 pm
UUID: e5e1ad30-20be-4e3e-bb9f-60f5d1cad0ae
Ancestors: SMBase-gk.104

Change one ifNotNil: to ifNotNilDo: so that the code can be loaded into a 3.8 image.

=============== Diff against SMBase-gk.104 ===============

Item was changed:
  ----- Method: SMInstaller classSide>>classForPackageRelease: (in category 'instance creation') -----
  classForPackageRelease: aPackageRelease
  	"Decide which subclass to instantiate. 
  	We detect and return the first subclass
  	that wants to handle the release going
  	recursively leaf first so that subclasses gets
  	first chance if several classes compete over
  	the same packages, like for example SMDVSInstaller
  	that also uses the .st file extension."
  
  	self subclasses do: [:ea |
  		(ea classForPackageRelease: aPackageRelease)
+ 			ifNotNilDo: [:class | ^ class]].
- 			ifNotNil: [:class | ^ class]].
  	^(self canInstall: aPackageRelease)
  		ifTrue: [self]!