Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.702.mcz

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

Name: System-eem.702
Author: eem
Time: 3 February 2015, 10:22:27.685 am
UUID: b07f9f90-735b-4389-b13f-9ce95be674c2
Ancestors: System-eem.701

Make DataStream class>>testWith: compare the result
if #= doesn't default to #== (or at least doesn't
default to Object's#=)

=============== Diff against System-eem.701 ===============

Item was changed:
  ----- Method: DataStream class>>testWith: (in category 'as yet unclassified') -----
  testWith: anObject
  	"As a test of DataStream/ReferenceStream, write out anObject and read it back.
  	11/19/92 jhm: Set the file type. More informative file name."
  	"DataStream testWith: 'hi'"
  	"ReferenceStream testWith: 'hi'"
  	| file result |
  
  	file := FileStream fileNamed: (self name, ' test').
  	file binary.
  	(self on: file) nextPut: anObject.
  	file close.
  
  	file := FileStream fileNamed: (self name, ' test').
  	file binary.
  	result := (self on: file) next.
  	file close.
+ 	(anObject class whichClassIncludesSelector: #=) ifFalse:
+ 		[self assert: result = anObject].
+ 	^result!
- 	^ result!