--- a/Base64Coder.st	Fri Mar 07 23:06:40 2014 +0100
+++ b/Base64Coder.st	Fri Mar 07 23:07:00 2014 +0100
@@ -225,7 +225,7 @@
 
     tempBuffer := 0.
     bits := 0.
-    [true] whileTrue:[
+    [
         "read next valid Base64 character, skip invalid characters"
         b := 255.
         [b == 255] whileTrue:[
@@ -260,17 +260,18 @@
             buffer := tempBuffer.
             ^ self.
         ].
-    ].
+    ] loop.
 ! !
 
 !Base64Coder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.23 2009-11-03 08:58:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.24 2014-03-07 22:07:00 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.23 2009-11-03 08:58:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.24 2014-03-07 22:07:00 stefan Exp $'
 ! !
 
+
 Base64Coder initialize!