# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1405143540 -7200
# Node ID b543c13298b8f29050cd21dcee958bf04704f41f
# Parent  5d50150c64373c75c4fbe0310ee6de702bc1ff22
class: Symbol
added: #isSingleByteString

diff -r 5d50150c6437 -r b543c13298b8 Symbol.st
--- a/Symbol.st	Sat Jul 12 07:38:14 2014 +0200
+++ b/Symbol.st	Sat Jul 12 07:39:00 2014 +0200
@@ -796,6 +796,15 @@
     "Created: / 20-06-2011 / 14:59:02 / cg"
 ! !
 
+!Symbol methodsFor:'testing'!
+
+isSingleByteString
+    "returns true only for strings and immutable strings.
+     Must replace foo isMemberOf:String and foo class == String"
+
+    ^ false
+! !
+
 !Symbol methodsFor:'tracing'!
 
 traceInto:aRequestor level:level from:referrer
@@ -817,11 +826,11 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.110 2014-07-09 16:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.111 2014-07-12 05:39:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.110 2014-07-09 16:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.111 2014-07-12 05:39:00 cg Exp $'
 !
 
 version_SVN