"Change Set:		jumpTo4dot1-bf
Date:			23 April 2010
Author:			Bert Freudenberg

Jump to version 4.1"

| current next |
current := 'etoys4.0'.
next := 'etoys4.1'.
(SystemVersion current version = current)
	ifFalse:
		[self error: 'This fileout needs to be installed into an image with version ', current]
	ifTrue:
		[(self confirm: 'This is the last update of ', current, '
Do you want to advance the system version to ', next, '?') ifTrue: [
				SystemVersion newVersion: next.
				self inform: 'This system version is now ', next, '.
Now please load updates, then save the image']
				ifFalse: [self inform: 'System version remains at ', current]].!