--- a/ObjectCoder.st Mon Aug 26 23:13:18 2019 +0200 +++ b/ObjectCoder.st Mon Aug 26 23:13:47 2019 +0200 @@ -231,7 +231,8 @@ nextPut:anObject "encode anObject onto my stream" - self nextPut:anObject with:nil + self nextPut:anObject with:nil. + ^ anObject ! nextPut:anObject with:aParameter