--- a/ExternalBytes.st	Thu Mar 12 14:47:12 2009 +0100
+++ b/ExternalBytes.st	Thu Mar 12 14:47:37 2009 +0100
@@ -663,7 +663,7 @@
     unsigned INT addr;
 
     if (__INST(address_) != nil) {
-        addr = (INT)__INST(address_);
+        addr = (unsigned INT)__INST(address_);
         if (addr <= _MAX_INT) {
             RETURN ( __mkSmallInteger(addr) );
         }
@@ -1283,7 +1283,7 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.70 2009-03-12 13:47:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.71 2009-03-12 13:47:37 cg Exp $'
 ! !
 
 ExternalBytes initialize!