@@ 1,6 1,6 @@
-'From Haver6.3 [latest update: #6200] on 29 January 2024 at 10:43:51 pm'!
+'From Haver6.3 [latest update: #6200] on 30 January 2024 at 11:28:05 am'!
'Description Convert the running Cuis image to an Haver image.'!
-!provides: 'Haverize' 1 151!
+!provides: 'Haverize' 1 152!
SystemOrganization addCategory: #Haverize!
@@ 737,7 737,7 @@ askConfirmationOnQuit
^self confirm: 'Do you really want to exit Haver without saving the image?' ].
^true! !
-!SystemDictionary methodsFor: '*Haverize-image, changes name' stamp: 'KLG 3/6/2023 10:42:28'!
+!SystemDictionary methodsFor: '*Haverize-image, changes name' stamp: 'KLG 1/29/2024 22:45:07'!
baseNameForVersion: aSystemVersion distributionPrefix: aPrefixString distributionSuffix: aSuffixString
"Answer a new haver base name for a system version."
@@ 750,12 750,8 @@ baseNameForVersion: aSystemVersion distr
nextPut: $-;
print: aSystemVersion highestUpdate;
nextPutAll: aSuffixString.
- Smalltalk isSpur
- ifTrue: [
- Smalltalk wordSize = 4 ifTrue: [
- strm nextPutAll: '-32' ]]
- ifFalse: [
- strm nextPutAll: '-v3' ]]! !
+ Smalltalk wordSize = 4 ifTrue: [
+ strm nextPutAll: '-32' ] ]! !
!SystemDictionary methodsFor: '*Haverize-image, changes name' stamp: 'KLG 4/11/2021 17:58:31'!
cuisBaseNameForCurrentVersion