Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.904.mcz

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

Name: System-mt.904
Author: mt
Time: 19 August 2016, 6:37:13.841803 pm
UUID: 19e7a30a-d90c-9843-ada7-c3a6533cb333
Ancestors: System-mt.903

Adds some guards when setting a new system version since that description is used for the automated building process.

=============== Diff against System-mt.903 ===============

Item was changed:
  ----- Method: SystemVersion class>>newVersion: (in category 'instance creation') -----
  newVersion: versionName
  	| newVersion |
+ 	
+ 	self assert: (versionName beginsWith: 'Squeak').
+ 	
  	newVersion := self new version: versionName.
+ 
+ 	self assert: newVersion majorVersionNumber notNil.
+ 	self assert: newVersion minorVersionNumber notNil.
+ 	self assert: newVersion isSqueak.
+ 	
+ 	self assert: (#(isRelease isAlpha isFeatureFreeze isCodeFreeze isReleaseCandidate)
+ 		anySatisfy: [:sel | newVersion perform: sel]).
+ 	
+ 	newVersion highestUpdate: self current highestUpdate.
- 	newVersion
- 		highestUpdate: self current highestUpdate.
  	Current := newVersion
  !

Item was changed:
  ----- Method: SystemVersion>>majorVersionNumber (in category 'accessing') -----
  majorVersionNumber
  
+ 	(version indexOf: $.) = 0 ifTrue: [^ nil].
  	^ (version copyFrom: 'Squeak' size to: (version indexOf: $.)) asInteger!

Item was changed:
  ----- Method: SystemVersion>>minorVersionNumber (in category 'accessing') -----
  minorVersionNumber
  
  	| pointIndex |
  	pointIndex := version indexOf: $..
+ 	pointIndex = 0 ifTrue: [^ nil].
  	^ (version
  		copyFrom: pointIndex
  		to: (self isRelease
  			"e.g. Squeak5.1"
  			ifTrue: [version size]
  			"e.g. Squeak5.1rc5"
  			ifFalse: [(pointIndex+1 to: version size) detect: [:ea | (version at: ea) isDigit not]])) asInteger!