'From etoys2.3 of 21 February 2008 [latest update: #1808] on 21 February 2008 at 5:46:18 pm'!
"Change Set:		jumpTo3dot1-bf
Date:			19 November 2008
Author:			Yoshiki Ohshima

Jump to version 3.1"

| current next |
current := 'etoys3.0'.
next := 'etoys3.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]].!