| changeset 650 | 4c6ed0a28d18 |
| parent 513 | 7b8093caf796 |
--- a/PPParser.st Wed Jul 24 21:13:30 2019 +0000 +++ b/PPParser.st Wed Jun 10 21:33:27 2020 +0100 @@ -78,7 +78,7 @@ propertyAt: aKey put: anObject "Set the property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject." - ^ (properties ifNil: [ properties := Dictionary new: 1 ]) + ^ (properties isNil ifTrue: [ properties := Dictionary new: 1 ]) at: aKey put: anObject !