--- a/Structure.st	Sun Mar 02 19:39:00 2003 +0100
+++ b/Structure.st	Sun Mar 02 21:42:55 2003 +0100
@@ -1275,7 +1275,7 @@
         (args at:1) class == (args at:1) ifFalse:[^ false].    "/ must be another struct
         names := self allInstVarNames.
         names notNil ifTrue:[
-            Object errorSignal handle:[:ex |
+            Error handle:[:ex |
                 ^ false
             ] do:[
                 names do:[:slotName |
@@ -1369,7 +1369,7 @@
 
     sel == #allInstVarNames ifTrue:[
         methodDictionary isNil ifTrue:[
-            'oops - nil ethodDict' printCR.
+            'oops - nil methodDict' printCR.
             ^ #()
         ].
 
@@ -1417,6 +1417,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.15 2002-01-28 09:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.16 2003-03-02 20:42:55 stefan Exp $'
 ! !
+
 Structure initialize!