--- a/ExternalBytes.st	Wed Mar 11 19:15:55 2009 +0100
+++ b/ExternalBytes.st	Thu Mar 12 14:47:12 2009 +0100
@@ -660,14 +660,14 @@
 
 %{  /* NOCONTEXT */
 
-    INT addr;
+    unsigned INT addr;
 
     if (__INST(address_) != nil) {
-	addr = (INT)__INST(address_);
-	if (addr <= _MAX_INT) {
-	    RETURN ( __mkSmallInteger(addr) );
-	}
-	RETURN ( __MKUINT(addr));
+        addr = (INT)__INST(address_);
+        if (addr <= _MAX_INT) {
+            RETURN ( __mkSmallInteger(addr) );
+        }
+        RETURN ( __MKUINT(addr));
     }
 %}.
     ^ nil
@@ -1283,7 +1283,7 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.69 2008-07-14 09:41:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.70 2009-03-12 13:47:12 cg Exp $'
 ! !
 
 ExternalBytes initialize!