The Trunk: System-eem.703.mcz

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

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

Name: System-eem.703
Author: eem
Time: 3 February 2015, 10:24:10.335 am
UUID: 749cbe08-4cc4-4c48-92bb-55dd1d5e8c1c
Ancestors: System-eem.702

Fix Homer moment

=============== Diff against System-eem.702 ===============

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: #=) == Object ifFalse:
- (anObject class whichClassIncludesSelector: #=) ifFalse:
  [self assert: result = anObject].
  ^result!