@@ 1,6 1,6 @@ 
-'From Haver7.0 [latest update: #6454] on 20 June 2024 at 6:45:35 pm'!
+'From Haver7.0 [latest update: #6454] on 26 June 2024 at 2:01:40 pm'!
 'Description A yet simpler try on some means of peristence.'!
-!provides: 'PlanF' 1 27!
+!provides: 'PlanF' 1 28!
 !requires: 'Cuis-Base' 60 5967 nil!
 !requires: 'BinaryFileStream' 1 1 nil!
 !requires: 'Collections-TwoAndEightByteArrays' 1 1 nil!

          
@@ 20,9 20,9 @@ Modules newEnvironment: #PlanF!
 !interfacesOf: PlanF!
 Modules environment: #PlanF ::
 	interface: #API exporting: #(#(#Store #FileStoreInterface)) ::
-	interface: #Store exporting: #(#(#Store #FileStore)) ::
-	interface: #SPI exporting: #(#ObjectRecord #AbstractAtomicCollectionRecord #BaseClassRecord #AbstractProxy #DoubleByteArrayRecord #AbstractAtomicRecord #LargeNegativeIntegerRecord #NegativeSmallIntegerRecord #AbstractSetRecord #StringRecord #PlanFClassRecord #AbstractMetaRecord #RootsRecord #AbstractInstanceRecord #SmalltalkProxy #AbstractStringLike #UninternedSymbolRecord #StoreRecord #PositiveSmallIntegerRecord #ByteArrayRecord #AbstractRecord #InternedSymbolRecord #LocalSymbolProxy #CompiledMethodProxy #FileStore #WordArrayRecord #SetRecord #AbstractLargeIntegerRecord #LargePositiveIntegerRecord #ClassRecord #CodePackageProxy #EnvironmentProxy #AbstractSmallIntegerRecord #DoubleWordArrayRecord #ModuleProxy #DictionaryRecord #AbstractStatelessProxy #AbstractClassRecord) ::
-	interface: #UTI exporting: #(#ObjectRecord #AbstractAtomicCollectionRecord #BaseClassRecord #AbstractProxy #DoubleByteArrayRecord #AbstractAtomicRecord #LargeNegativeIntegerRecord #NegativeSmallIntegerRecord #AbstractSetRecord #StringRecord #PlanFClassRecord #AbstractMetaRecord #RootsRecord #AbstractInstanceRecord #SmalltalkProxy #RecordDescription #AbstractStringLike #UninternedSymbolRecord #StoreRecord #PositiveSmallIntegerRecord #ByteArrayRecord #AbstractRecord #InternedSymbolRecord #LocalSymbolProxy #CompiledMethodProxy #FileStore #WordArrayRecord #SetRecord #AbstractLargeIntegerRecord #LargePositiveIntegerRecord #RunningWorldProxy #ClassRecord #CodePackageProxy #EnvironmentProxy #AbstractSmallIntegerRecord #DoubleWordArrayRecord #ModuleProxy #DictionaryRecord #AbstractStatelessProxy #AbstractClassRecord)!
+	interface: #SPI exporting: #(#StringRecord #AbstractStatelessProxy #PlanFClassRecord #DictionaryRecord #AbstractSmallIntegerRecord #AbstractClassRecord #LargePositiveIntegerRecord #PositiveSmallIntegerRecord #CompiledMethodProxy #FileStore #AbstractLargeIntegerRecord #UninternedSymbolRecord #ClassRecord #AbstractStringLike #AbstractMetaRecord #RootsRecord #WordArrayRecord #AbstractAtomicCollectionRecord #InternedSymbolRecord #AbstractSetRecord #AbstractRecord #DoubleWordArrayRecord #BaseClassRecord #SmalltalkProxy #DoubleByteArrayRecord #ModuleProxy #CodePackageProxy #ObjectRecord #LocalSymbolProxy #AbstractAtomicRecord #SetRecord #NegativeSmallIntegerRecord #LargeNegativeIntegerRecord #EnvironmentProxy #AbstractProxy #StoreRecord #ByteArrayRecord #AbstractInstanceRecord) ::
+	interface: #UTI exporting: #(#StringRecord #AbstractStatelessProxy #PlanFClassRecord #DictionaryRecord #AbstractSmallIntegerRecord #AbstractClassRecord #LargePositiveIntegerRecord #PositiveSmallIntegerRecord #CompiledMethodProxy #RecordDescription #FileStore #AbstractLargeIntegerRecord #UninternedSymbolRecord #ClassRecord #AbstractStringLike #AbstractMetaRecord #RootsRecord #WordArrayRecord #AbstractAtomicCollectionRecord #InternedSymbolRecord #AbstractSetRecord #AbstractRecord #DoubleWordArrayRecord #BaseClassRecord #SmalltalkProxy #DoubleByteArrayRecord #RunningWorldProxy #ModuleProxy #CodePackageProxy #ObjectRecord #LocalSymbolProxy #AbstractAtomicRecord #SetRecord #NegativeSmallIntegerRecord #LargeNegativeIntegerRecord #EnvironmentProxy #AbstractProxy #StoreRecord #ByteArrayRecord #AbstractInstanceRecord) ::
+	interface: #Store exporting: #(#(#Store #FileStore))!
 
 
 !classDefinition: #TextFontFamilyAndSize category: #'PlanF-Compatibility'!

          
@@ 1887,13 1887,13 @@ dumpDataOn: aStream
 		arrayIndex _ arrayIndex + 1 ].
 	aStream nextPutAll: dataArray! !
 
-!(Modules>>#PlanF>>#DictionaryRecord) methodsFor: 'persistence' stamp: 'KLG 8/1/2023 11:00:29'!
+!(Modules>>#PlanF>>#DictionaryRecord) methodsFor: 'persistence' stamp: 'KLG 6/25/2024 20:54:53'!
 loadDataFrom: aStream header: aHeader
 	"Creat an instance of mine and load it from aStream."
 
 	| dataArray size |
 	aStream nextInto: (dataArray := DoubleWordArray new: (size := aHeader at: 1)).
-	object := (store loadObjectAt: (dataArray at: 1)) new: (size - 1) / 2.
+	object := (store loadObjectAt: (dataArray at: 1)) ofRoom: (size - 1) / 2.
 	self registerPositionWithStore.
 	2 to: size by: 2 do: [ :index |
 		object 

          
@@ 2227,14 2227,14 @@ headerSize
 
 	^ 2! !
 
-!(Modules>>#PlanF>>#StoreRecord) methodsFor: 'persistence' stamp: 'KLG 5/15/2021 18:33:36'!
+!(Modules>>#PlanF>>#StoreRecord) methodsFor: 'persistence' stamp: 'KLG 6/25/2024 21:48:43'!
 loadDataFrom: aStream header: aHeader
 	"Creat an instance of mine and load it from aStream."
 
 	|  versionStringSize |
-	storedVersion _ aHeader at: 1.
-	storedMagicString _ String new: (versionStringSize _ aHeader at: 2).
-	aStream next: versionStringSize  into: storedMagicString startingAt: 1
+	storedVersion := aHeader at: 1.
+	storedMagicString := String new: (versionStringSize := aHeader at: 2).
+	aStream next: versionStringSize into: storedMagicString startingAt: 1
 ! !
 
 !(Modules>>#PlanF>>#StoreRecord) class methodsFor: 'magic' stamp: 'KLG 5/14/2021 21:10:25'!