--- a/Base32Coder.st	Tue Nov 03 09:58:46 2009 +0100
+++ b/Base32Coder.st	Tue Nov 03 09:59:04 2009 +0100
@@ -148,7 +148,7 @@
         charCount := 0.
     ].
 
-    buffer := (buffer bitShift:8) bitOr:aByte.
+    buffer := (buffer bitShift:8) bitOr:aByte asInteger.
     bits := bits + 8 - 5.           "max value of bits = 4 + 8 - 5"
 
     bits >= 5 ifTrue:[
@@ -243,7 +243,11 @@
 !Base32Coder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base32Coder.st,v 1.2 2008-04-23 12:59:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base32Coder.st,v 1.3 2009-11-03 08:59:04 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Base32Coder.st,v 1.3 2009-11-03 08:59:04 stefan Exp $'
 ! !
 
 Base32Coder initialize!