Chris Muller uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-cmm.117.mcz

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

Name: SMBase-cmm.117
Author: cmm
Time: 5 February 2011, 3:14:08.114 pm
UUID: db4a5d45-903c-46a0-b946-c55aa12bd735
Ancestors: SMBase-cmm.116, SMBase-cmm.112

- Merged SMBase-cmm.112.

=============== Diff against SMBase-cmm.116 ===============

Item was changed:
  ----- Method: SMAccount>>newFile:block: (in category 'files') -----
  newFile: fileName block: aBlock
  	"Create a new file. Let <aBlock> fill the file with content by calling it with a stream."
  
+ 	| dir stream |
- 	| dir |
  	dir := self uploadsDirectory.
+ 	[(dir fileExists: fileName) ifTrue:[dir deleteFileNamed: fileName].
+ 	stream := dir newFileNamed: fileName.
+ 	stream binary.
+ 	aBlock value: stream] ensure: [stream close]!
- 	(dir fileExists: fileName) ifTrue:[dir deleteFileNamed: fileName].
- 	dir newFileNamed: fileName do: [:stream |
- 		stream binary.
- 		aBlock value: stream]!

Item was added:
+ ----- Method: SMCategorizableObject>>beCommunitySupported (in category 'testing') -----
+ beCommunitySupported
+ 	self addCategory: (self map categoryWithNameBeginning: 'Community Supported')!

Item was added:
+ ----- Method: SMCategorizableObject>>isCommunitySupported (in category 'testing') -----
+ isCommunitySupported
+ 	| csCat |
+ 	csCat := self categories detect: [ : each | each name = 'Community Supported' ] ifNone: [ nil ].
+ 	^ csCat notNil!

Item was changed:
  ----- Method: SMMaintainableObject>>rss: (in category 'maintainers') -----
  rss: anUrl
+ 	anUrl = 'nil'
+ 		ifTrue: [rss := nil]
+ 		ifFalse: [rss := anUrl]!
- 	rss := anUrl!

Item was changed:
  ----- Method: SMPackageRelease>>initializeFromRelease:package: (in category 'initialize-release') -----
  initializeFromRelease: parentRelease package: aPackage
  	"Initialize package release from a given parent.
  	Branch if needed."
  
  	self map: aPackage map id: UUID new.
  	package := aPackage.
+ 	aPackage isCommunitySupported ifTrue: [ self beCommunitySupported ].
  	automaticVersion :=
  		parentRelease
  			ifNil: [VersionNumber first]
  			ifNotNil: [parentRelease nextOrBranch].
  	version := note := downloadUrl := ''!

Item was changed:
  ----- Method: SMSqueakMap>>saveCheckpoint: (in category 'checkpoints') -----
  saveCheckpoint: contentWithFilename
  	"Save the map checkpoint to disk if it is not there already."
  
+ 	| file directory sz fname content |
- 	| directory sz fname content |
  	directory := self directory.
  	sz := contentWithFilename size.
  	fname := contentWithFilename last: sz - (contentWithFilename lastIndexOf: $:).
  	content := contentWithFilename first: sz - fname size - 1.
  	(directory fileExists: fname) ifFalse: [
+ 		"Please do not upgrade the following to use Squeak 4.0 or later API's (e.g., #newFileNamed:do:) until we can convert the SMServer code to latest Squeaks."
+ 		[file := StandardFileStream newFileNamed: (directory fullNameFor: fname).
+ 		file nextPutAll: content]
+ 			ensure: [file close]]!
- 		StandardFileStream newFileNamed: (directory fullNameFor: fname) do: [ :file |
- 			file nextPutAll: content ] ]!