ExternalAddress.st
changeset 14648 7a9bec61d6fe
parent 13192 5ec4d9d9957b
child 18011 deb0c3355881
child 18828 919987dab72c
--- a/ExternalAddress.st	Fri Jan 11 12:45:37 2013 +0100
+++ b/ExternalAddress.st	Fri Jan 11 12:46:17 2013 +0100
@@ -197,7 +197,7 @@
      C pointer"
 
 %{  /* NOCONTEXT */
-    if (__isExternalAddress(anExternalAddress)
+    if ((__Class(anExternalAddress) == __Class(self))
      && (__externalAddressVal(self) == __externalAddressVal(anExternalAddress))) {
 	RETURN (true);
     }
@@ -333,9 +333,9 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.30 2010-12-24 09:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.31 2013-01-11 11:46:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.30 2010-12-24 09:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.31 2013-01-11 11:46:17 cg Exp $'
 ! !