--- a/Base64Coder.st	Mon Nov 02 19:40:01 2009 +0100
+++ b/Base64Coder.st	Tue Nov 03 09:58:46 2009 +0100
@@ -150,7 +150,7 @@
 
     |b1 b2 b3 b4|
 
-    buffer := (buffer bitShift:8) bitOr:aByte.
+    buffer := (buffer bitShift:8) bitOr:aByte asInteger.
     bits := bits + 8.
     bits == 24 ifTrue:[
         "RFC 2045 says: max 76 characters in one line"
@@ -266,7 +266,11 @@
 !Base64Coder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.22 2009-08-19 18:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.23 2009-11-03 08:58:46 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base64Coder.st,v 1.23 2009-11-03 08:58:46 stefan Exp $'
 ! !
 
 Base64Coder initialize!