# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1173800278 -3600
# Node ID a5996b7ad0cfe3f1cb271c504d44848e2fd4ceed
# Parent  549d9df710af6a8b6c828873b0fc34fea30abfa6
*** empty log message ***

diff -r 549d9df710af -r a5996b7ad0cf Structure.st
--- 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!