# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1723725396 -7200
#      Thu Aug 15 14:36:36 2024 +0200
# Branch Cuis7.0based
# Node ID 28ffec0bda2cb62333c1db3c678ee7bcf3ca0c12
# Parent  c51a688fb59662f4e0f49023a32e63395c19b80a
SUM: System information now includes the Haver version.

diff --git a/haver/Haverize.pck.st b/haver/Haverize.pck.st
--- a/haver/Haverize.pck.st
+++ b/haver/Haverize.pck.st
@@ -1,6 +1,6 @@
-'From Haver7.0 [latest update: #6454] on 14 August 2024 at 11:43:15 pm'!
+'From Haver7.0 [latest update: #6454] on 15 August 2024 at 2:34:31 pm'!
 'Description Convert the running Cuis image to an Haver image.'!
-!provides: 'Haverize' 1 171!
+!provides: 'Haverize' 1 172!
 SystemOrganization addCategory: #Haverize!
 
 
@@ -733,6 +733,26 @@
 	"
 	self saveAsNewHaverVersion: true isIntegrated: true! !
 
+!SystemDictionary methodsFor: '*Haverize-sources, change log' stamp: 'KLG 8/15/2024 12:13:51'!
+systemInformationString
+	"Identify software version"
+
+	^ String streamContents: [ :stream |
+		stream
+			nextPutAll: self versionString;
+			nextPutAll: ' sub ';
+			nextPutAll: 'version: '.
+		HaverizePackage haverVersion
+			printOn: stream 
+			length: 3
+			zeroPadded: true.
+		stream
+			newLine;
+			nextPutAll: self lastUpdateString;
+			newLine;
+			nextPutAll: 'Image file: ';
+			nextPutAll: self imageName ]! !
+
 !SystemDictionary class methodsFor: '*Haverize-copyright' stamp: 'KLG 4/4/2024 11:29:32'!
 copyright
 	"The Cuis Smalltalk copyright.