--- a/BaseNCoder.st	Sun Sep 30 15:56:26 2018 +0200
+++ b/BaseNCoder.st	Sun Sep 30 16:58:56 2018 +0200
@@ -406,17 +406,14 @@
             answerStream nextPut:((buffer bitShift:(8 - bits)) bitAnd:16rFF).
             bits := bits - 8.
         ].
-        atEnd ifTrue:[
-            bits ~~ 0 ifTrue:[
-                answerStream nextPut:(buffer bitAnd:16rFF).
-                bits := 0.
-            ]
-        ] ifFalse:[
+        atEnd ifFalse:[
             self fillBuffer.
         ].
     ] doWhile:[bits > 0].
 
     ^ answerStream contents
+
+    "Modified: / 30-09-2018 / 16:37:03 / Claus Gittinger"
 ! !
 
 !BaseNCoder methodsFor:'subclass responsibility'!