--- a/Structure.st	Tue Dec 05 15:55:55 2000 +0100
+++ b/Structure.st	Sun Dec 10 14:08:48 2000 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 Object subclass:#Structure
 	instanceVariableNames:'superclass flags methodDictionary otherSupers instSize i1 i2 i3
 		i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20 i21
@@ -868,7 +870,8 @@
 i40
     "return the value of the instance variable 'i40' (automatically generated)"
 
-    ^ i40!
+    ^ i40
+!
 
 i40:something
     "prototype method"
@@ -1230,6 +1233,17 @@
         ^ nil
     ].
 
+    (sel == #'perform:') ifTrue:[
+         ^ super perform:(args at:1)
+    ].
+
+    (sel == #'=') ifTrue:[
+         ^ super = (args at:1)
+    ].
+    (sel == #'~=') ifTrue:[
+         ^ super ~= (args at:1)
+    ].
+
     (sel == #size
     or:[sel == #basicSize]) ifTrue:[
          ^ super basicSize
@@ -1353,6 +1367,6 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.11 2000-02-23 10:21:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.12 2000-12-10 13:08:48 cg Exp $'
 ! !
 Structure initialize!