--- a/ExternalAddress.st	Fri Sep 24 16:49:24 2004 +0200
+++ b/ExternalAddress.st	Mon Sep 27 10:55:45 2004 +0200
@@ -274,9 +274,9 @@
     unsigned INT addr;
 
     if (__isSmallInteger(anInteger)) {
-	addr = __intVal(anInteger);
+        addr = __intVal(anInteger);
     } else {
-	addr = __longIntVal(anInteger);
+        addr = __unsignedLongIntVal(anInteger);
     }
     __INST(address_) = (OBJ)addr;
 %}
@@ -285,5 +285,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.19 2004-08-05 11:48:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.20 2004-09-27 08:55:45 stefan Exp $'
 ! !