Fixing bugs linked to WeakChest's default instance and messages sent to wrong receiver in the API inChest:at:put:

Author: adri09070

Chest/Chest.class.st

@@ -234,7 +234,7 @@ Chest class >> inChest: aChestName at: aKey put: anObject [
 	| chest |
 	[ chest := self named: aChestName ]
 		on: KeyNotFound
-		do: [ chest := self class newNamed: aChestName ].
+		do: [ chest := self newNamed: aChestName ].
 
 	^ chest at: aKey put: anObject
 ]

Chest/WeakChest.class.st

@@ -7,6 +7,13 @@ Class {
 	#category : #Chest
 }
 
+{ #category : #accessing }
+WeakChest class >> defaultInstance [
+
+	^ defaultInstance ifNil: [ 
+		  defaultInstance := self newNamed: self defaultInstanceName ]
+]
+
 { #category : #'default values' }
 WeakChest class >> defaultInstanceName [