--- a/ObjectCoder.st	Thu Apr 14 08:02:44 2016 +0100
+++ b/ObjectCoder.st	Mon Apr 18 07:17:25 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -82,6 +80,7 @@
     "
      Base64Coder encode:#[1 2 16rFe 16rFF]
      Base64Coder decode:'AQL+/w=='    
+     (Base64Coder decode:(Base64Coder encode:#[1 2 16rFe 16rFF])) = #[1 2 16rFe 16rFF]
     "
 !
 
@@ -204,7 +203,7 @@
 nextPut:anObject
     "encode anObject onto my stream"
 
-    self nextPut:anObject with:nil.
+    self nextPut:anObject with:nil
 !
 
 nextPut:anObject with:aParameter
@@ -274,7 +273,15 @@
 
 !ObjectCoder methodsFor:'private-accessing'!
 
+stream
+    "return my input or output stream"
+    
+    ^ stream
+!
+
 stream:aStream
+    "set my input or output stream"
+
     stream := aStream.
 ! !