--- a/CharacterArray.st	Mon Aug 07 13:07:01 2006 +0200
+++ b/CharacterArray.st	Mon Aug 07 13:11:15 2006 +0200
@@ -1376,19 +1376,6 @@
     ^ true
 ! !
 
-!CharacterArray methodsFor:'JavaScript support'!
-
-+ aStringOrCharacter
-    "alternative string-concatenation.
-     For JavaScript only"
-
-    ^ self , aStringOrCharacter
-
-    "
-     'hello' + $1  
-     'hello' + '1' 
-    "
-! !
 
 !CharacterArray methodsFor:'character searching'!
 
@@ -4999,10 +4986,10 @@
 isUnarySelector
     "Answer true if the receiver contains only chars in an ANSI unary method selector, false otherwise."
 
-    ^ (self first isLetter or:[ self first = $_ ])
-      and:[ self allSatisfy: [ :chr | chr isLetterOrDigit ]]
-
-    "Modified: / 20-04-2005 / 12:20:43 / cg"
+    ^ (self first isLetter or:[ self first == $_ ])
+      and:[ self allSatisfy: [ :chr | chr isLetterOrDigit or:[chr == $_] ]]
+
+    "Modified: / 06-08-2006 / 14:00:28 / cg"
 !
 
 isUppercaseFirst
@@ -5315,7 +5302,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.344 2006-07-05 15:25:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.345 2006-08-07 11:11:15 cg Exp $'
 ! !
 
 CharacterArray initialize!