--- a/Structure.st	Wed Oct 07 17:55:54 2009 +0200
+++ b/Structure.st	Thu Oct 08 16:01:57 2009 +0200
@@ -1319,6 +1319,9 @@
     sel == #shallowCopy ifTrue:[
          ^ super shallowCopy
     ].
+    sel == #identityHash ifTrue:[
+         ^ super identityHash
+    ].
     (sel == #isException) ifTrue:[
          ^ false
     ].
@@ -1430,7 +1433,11 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.22 2009-07-11 20:15:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.23 2009-10-08 14:01:57 mb Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.23 2009-10-08 14:01:57 mb Exp $'
 ! !
 
 Structure initialize!