--- a/ExternalAddress.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/ExternalAddress.st	Fri Jul 08 19:15:03 2005 +0200
@@ -215,7 +215,7 @@
 	}
 	addr >>= 1;
     }
-    RETURN (__MKSMALLINT(addr));
+    RETURN (__mkSmallInteger(addr));
 %}
 ! !
 
@@ -285,5 +285,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.20 2004-09-27 08:55:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.21 2005-07-08 17:15:01 cg Exp $'
 ! !