--- a/Structure.st	Tue Mar 13 15:37:32 2007 +0100
+++ b/Structure.st	Tue Mar 13 16:37:58 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#Structure
@@ -1345,6 +1344,10 @@
          ^ false
     ].
 
+    sel == #isString ifTrue:[
+         ^ false
+    ].
+
     sel == #respondsTo: ifTrue:[
          ^ false
     ].
@@ -1422,7 +1425,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.20 2004-11-18 10:33:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.21 2007-03-13 15:37:58 cg Exp $'
 ! !
 
 Structure initialize!