--- a/ExternalAddress.st	Tue Aug 19 22:40:49 1997 +0200
+++ b/ExternalAddress.st	Tue Aug 19 22:41:08 1997 +0200
@@ -115,9 +115,9 @@
 
 %{  /* NOCONTEXT */
 
-    unsigned addr;
+    unsigned INT addr;
 
-    addr = (unsigned)__INST(address_);
+    addr = (unsignedINT )__INST(address_);
     RETURN ( __MKUINT(addr));
 %}
 ! !
@@ -141,7 +141,7 @@
     "return a number useful for hashing"
 
 %{  /* NOCONTEXT */
-    unsigned addr = (unsigned) __externalAddressVal(self);
+    unsigned INT addr = (unsigned INT) __externalAddressVal(self);
 
     if (addr > _MAX_INT) {
 	if ((addr & 1) == 0) {
@@ -189,5 +189,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.7 1997-03-20 20:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.8 1997-08-19 20:41:08 cg Exp $'
 ! !