--- a/core/extensions.sav	Sun Jan 15 22:27:17 2012 +0000
+++ b/core/extensions.sav	Sun Jan 15 22:31:03 2012 +0000
@@ -1,67 +1,60 @@
-"{ Package: 'stx:goodies/xtreams/core' }"
+"{ Encoding: utf8 }" !
+"{ Package: 'stx:goodies/xtreams/core' }" !
+
+!SequenceableCollection methodsFor:'private'!
+
+streamingInsert: anInteger into: aWriteStream
+	aWriteStream insert: anInteger from: self at: 1
+! !
+
+!SequenceableCollection methodsFor:'private'!
 
-!
+streamingInsertInto: aWriteStream
+	aWriteStream insert: self size from: self at: 1.
+	^self size
+! !
+
+!SequenceableCollection methodsFor:'private'!
+
+streamingWrite: anInteger into: aWriteStream
+	^aWriteStream write: anInteger from: self at: 1
+! !
+
+!SequenceableCollection methodsFor:'private'!
+
+streamingWriteInto: aWriteStream
+	aWriteStream write: self size from: self at: 1.
+	^self size
+! !
 
 !Object methodsFor:'private'!
 
 streamingInsert: anInteger into: aWriteStream
 	anInteger timesRepeat: [self streamingInsertInto: aWriteStream]
 ! !
+
 !Object methodsFor:'private'!
 
 streamingInsertInto: aWriteStream
 	aWriteStream insert: (aWriteStream contentsSpecies with: self)
 ! !
+
 !Object methodsFor:'private'!
 
 streamingPrintOn: aWriteStream
 	aWriteStream write: self printString
 ! !
+
 !Object methodsFor:'private'!
 
 streamingWrite: anInteger into: aWriteStream
 	anInteger timesRepeat: [self streamingWriteInto: aWriteStream].
 	^anInteger
 ! !
+
 !Object methodsFor:'private'!
 
 streamingWriteInto: aWriteStream
 	aWriteStream put: self
 ! !
-!SequenceableCollection methodsFor:'private'!
 
-streamingInsert: anInteger into: aWriteStream
-	aWriteStream insert: anInteger from: self at: 1
-! !
-!SequenceableCollection methodsFor:'private'!
-
-streamingInsertInto: aWriteStream
-	aWriteStream insert: self size from: self at: 1.
-	^self size
-! !
-!SequenceableCollection methodsFor:'private'!
-
-streamingWrite: anInteger into: aWriteStream
-	^aWriteStream write: anInteger from: self at: 1
-! !
-!SequenceableCollection methodsFor:'private'!
-
-streamingWriteInto: aWriteStream
-	aWriteStream write: self size from: self at: 1.
-	^self size
-! !
-!SequenceableCollection class methodsFor:'* extensions (%1) *'!
-
-writingDo: aBlock
-	| stream |
-	stream := self new writing.
-	aBlock value: stream.
-	^stream
-		close;
-		destination
-! !
-!stx_goodies_xtreams_core class methodsFor:'documentation'!
-
-extensionsVersion_SVN
-    ^ '$Id: extensions.st 12 2011-11-21 06:00:44Z mkobetic $'
-! !