--- a/ObjectCoder.st	Thu Apr 14 14:56:34 2016 +0200
+++ b/ObjectCoder.st	Thu Apr 14 19:06:16 2016 +0200
@@ -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