A new version of Collections was added to project The Inbox:
http://source.squeak.org/inbox/Collections-ul.565.mcz

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

Name: Collections-ul.565
Author: ul
Time: 3 February 2014, 6:28:21.892 pm
UUID: b59d3510-2193-4790-b372-84aa2ff111fa
Ancestors: Collections-ul.564

Let the following return true:

| a |
a := #(1).
{ a. a} shouldBePrintedAsLiteral.

=============== Diff against Collections-ul.564 ===============

Item was changed:
  ----- Method: Array>>shouldBePrintedAsLiteralVisiting: (in category 'testing') -----
  shouldBePrintedAsLiteralVisiting: aSet
+ 
+ 	| result |
  	self class == Array ifFalse:
  		[^false].
  	(aSet includes: self) ifTrue:
  		[^false].
  	aSet add: self.
+ 	result := self allSatisfy: [:each | each shouldBePrintedAsLiteralVisiting: aSet].
+ 	aSet remove: self.
+ 	^result!
- 	^self allSatisfy: [:each | each shouldBePrintedAsLiteralVisiting: aSet]!