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

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

Name: SMBase-gk.111
Author: gk
Time: 28 September 2010, 9:15:35 pm
UUID: 604a99b4-2552-438e-8ad8-986b94f1fcaf
Ancestors: SMBase-gk.110

Silly preventive hack, really ugly, but I have no idea how it can happen.

=============== Diff against SMBase-gk.109 ===============

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 changed:
  ----- Method: SMMaintainableObject>>rss: (in category 'maintainers') -----
  rss: anUrl
+ 	anUrl = 'nil'
+ 		ifTrue: [rss := nil]
+ 		ifFalse: [rss := anUrl]!
- 	rss := anUrl!

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: [
+ 		[file := StandardFileStream newFileNamed: (directory fullNameFor: fname).
+ 		file nextPutAll: content]
+ 			ensure: [file close]]!
- 		StandardFileStream newFileNamed: (directory fullNameFor: fname) do: [ :file |
- 			file nextPutAll: content ] ]!