--- a/ExternalAddress.st	Fri Sep 03 11:53:15 1999 +0200
+++ b/ExternalAddress.st	Fri Sep 03 14:33:50 1999 +0200
@@ -126,6 +126,29 @@
     addr = (unsigned INT)__INST(address_);
     RETURN ( __MKUINT(addr));
 %}
+!
+
+instVarAt:index
+    "redefined to suppress direct access to my address, which is a non-object"
+
+    index == 1 ifTrue:[
+        ^ self address
+    ].
+    ^ super instVarAt:index
+
+    "Created: / 3.9.1999 / 13:47:03 / ps"
+!
+
+instVarAt:index put:newAddress
+    "redefined to suppress direct access to my address, which is a non-object"
+
+    index == 1 ifTrue:[
+        self setAddress:newAddress.
+        ^ newAddress
+    ].
+    ^ super instVarAt:index put:newAddress
+
+    "Created: / 3.9.1999 / 14:31:57 / ps"
 ! !
 
 !ExternalAddress methodsFor:'comparing'!
@@ -217,5 +240,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.14 1999-01-21 20:33:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.15 1999-09-03 12:33:50 ps Exp $'
 ! !