--- a/Structure.st	Mon Jun 15 18:43:14 2009 +0200
+++ b/Structure.st	Sat Jul 11 22:15:57 2009 +0200
@@ -156,20 +156,23 @@
             add:(Object compiledMethodAt:#basicAt:put:);
             add:(Object compiledMethodAt:#printString);
             add:(Object compiledMethodAt:#printOn:);
+            add:(Object compiledMethodAt:#basicPrintOn:);
             add:(Object compiledMethodAt:#addDependent:);
             add:(Object compiledMethodAt:#removeDependent:);
             add:(Object compiledMethodAt:#dependents);
             add:(Object compiledMethodAt:#dependents:);
             add:(Object compiledMethodAt:#perform:);
-            add:(Object compiledMethodAt:#perform:with:).
+            add:(Object compiledMethodAt:#perform:with:);
+            add:(Object compiledMethodAt:#isBoolean).
         OtherMethods := OtherMethods asArray.
 
         OtherSelectors := #(#doesNotUnderstand: 
                             #class #identityHash
                             #at: #at:put: #basicAt: #basicAt:put: 
-                            #printString #printOn:
+                            #printString #printOn: #basicPrintOn:
                             #addDependent: #removeDependent: #dependents #dependents:
-                            #perform: #perform:with:).
+                            #perform: #perform:with:
+                            #isBoolean).
     ].
 
     "
@@ -1218,7 +1221,7 @@
     sel := aMessage selector.
     args := aMessage arguments.
 
-    sel == #displayString ifTrue:[
+    (sel == #displayString) ifTrue:[
        s := WriteStream on:''.
        s nextPutAll:'Structure('.
        names := self allInstVarNames.
@@ -1316,11 +1319,13 @@
     sel == #shallowCopy ifTrue:[
          ^ super shallowCopy
     ].
-
+    (sel == #isException) ifTrue:[
+         ^ false
+    ].
 
     "/ class protocol
 
-    (sel := aMessage selector) == #name ifTrue:[
+    sel == #name ifTrue:[
         ^ 'Structure'
     ].
 
@@ -1411,10 +1416,10 @@
     (sel == #instSize) ifTrue:[
          ^ instSize
     ].
-
     'Structure [warning]: return nil for: ' infoPrint.
     aMessage infoPrint.
     ' args ' infoPrint. args infoPrintCR.
+"/ Object halt.
 
     ^ nil.
 
@@ -1425,7 +1430,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.21 2007-03-13 15:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.22 2009-07-11 20:15:57 cg Exp $'
 ! !
 
 Structure initialize!