Chris Muller uploaded a new version of Collections to project The Inbox:
http://source.squeak.org/inbox/Collections-cmm.858.mcz

==================== Summary ====================

Name: Collections-cmm.858
Author: cmm
Time: 4 November 2019, 7:25:14.227142 pm
UUID: 071a78c1-3ac2-4cad-b0e0-e7c2935504e1
Ancestors: Collections-pre.857

Let the printString of an OrderedDictionary reveal its key sequence.

=============== Diff against Collections-pre.857 ===============

Item was added:
+ ----- Method: Dictionary>>keysInOrder (in category 'printing') -----
+ keysInOrder
+ 	^ self keysSortedSafely!

Item was changed:
  ----- Method: Dictionary>>printElementsOn: (in category 'printing') -----
  printElementsOn: aStream 
  	aStream nextPut: $(.
  	self size > 100
  		ifTrue: [aStream nextPutAll: 'size '.
  			self size printOn: aStream]
+ 		ifFalse: [self keysInOrder
- 		ifFalse: [self keysSortedSafely
  				do: [:key | aStream print: key;
  						 nextPutAll: '->';				
  						 print: (self at: key);
  						 space]].
  	aStream nextPut: $)!

Item was added:
+ ----- Method: OrderedDictionary>>keysInOrder (in category 'printing') -----
+ keysInOrder
+ 	^ self keys!