--- a/Structure.st	Wed Nov 10 10:35:52 2004 +0100
+++ b/Structure.st	Thu Nov 18 11:33:57 2004 +0100
@@ -1269,6 +1269,9 @@
     (sel == #'perform:') ifTrue:[
          ^ super perform:(args at:1)
     ].
+    (sel == #'perform:with:') ifTrue:[
+         ^ super perform:(args at:1) with:(args at:2)
+    ].
 
     (sel == #'=') ifTrue:[
         (args at:1) class == (args at:1) ifFalse:[^ false].    "/ must be another struct
@@ -1365,6 +1368,9 @@
     sel == #allClassVarNames ifTrue:[
         ^ #()
     ].
+    sel == #methodDictionary ifTrue:[
+        ^methodDictionary
+    ].
 
     sel == #allInstVarNames ifTrue:[
         methodDictionary isNil ifTrue:[
@@ -1416,7 +1422,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.19 2004-03-01 23:07:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.20 2004-11-18 10:33:57 penk Exp $'
 ! !
 
 Structure initialize!