Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1372.mcz

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

Name: System-ct.1372
Author: ct
Time: 11 October 2022, 1:35:45.477414 pm
UUID: 9f008d2c-1e56-aa43-814d-adc9df0e4f3b
Ancestors: System-ct.1371

Complements MonticelloConfigurations-ct.180 (reminder to update the OSVM). Provides interface on SmalltalkImage for accessing the current build number and stores the recommend build number in SystemVersion.

=============== Diff against System-ct.1371 ===============

Item was added:
+ ----- Method: SmalltalkImage>>isRunningOpenSmalltalkVM (in category 'system attributes') -----
+ isRunningOpenSmalltalkVM
+ 
+ 	^ [#('CoInterpreter' 'StackInterpreter') includes: (self interpreterClass copyUpTo: Character space)]
+ 		on: Error "unsupported primitives"
+ 		do: [:ex | false]!

Item was added:
+ ----- Method: SmalltalkImage>>openSmalltalkVMBuildNumber (in category 'system attributes') -----
+ openSmalltalkVMBuildNumber
+ 
+ 	| matcher |
+ 	self isRunningOpenSmalltalkVM ifFalse: [^ nil].
+ 	
+ 	matcher := 'VM\: (\d+).*' asRegex.
+ 	(matcher matches: self platformSourceVersion) ifFalse: [^ nil].
+ 	^ (matcher subexpression: 2) asNumber!

Item was added:
+ ----- Method: SystemVersion>>recommendedVMBuildNumber (in category 'accessing') -----
+ recommendedVMBuildNumber
+ 
+ 	^ 202206021410!

Item was added:
+ ----- Method: SystemVersion>>recommendedVMUpdateInfo (in category 'accessing') -----
+ recommendedVMUpdateInfo
+ 
+ 	| currentNumber |
+ 	currentNumber := Smalltalk openSmalltalkVMBuildNumber ifNil: [^ nil].
+ 	currentNumber >= self recommendedVMBuildNumber ifTrue: [^ nil].
+ 	^ currentNumber -> self recommendedVMBuildNumber!

Item was added:
+ ----- Method: SystemVersion>>vmUpdateURL (in category 'accessing') -----
+ vmUpdateURL
+ 
+ 	^ 'https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/202206021410'!