--- a/Character.st	Tue Feb 11 21:18:49 2014 +0100
+++ b/Character.st	Tue Feb 11 22:32:10 2014 +0100
@@ -1413,6 +1413,19 @@
 
 !Character methodsFor:'copying'!
 
+, aStringOrCharacter
+    "return a string containing the concatenation of the receiver character
+     and the argument, a string or character.
+     Added for symetry, as we allow string,char also char,string should be allowed"
+
+    ^ self asString , aStringOrCharacter
+
+    "
+     $. , $:
+     $. , 'abc' , $.
+    "
+!
+
 copy
     "return a copy of myself
      reimplemented since characters are unique"
@@ -2829,10 +2842,10 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.148 2013-10-14 19:59:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.149 2014-02-11 21:32:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.148 2013-10-14 19:59:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.149 2014-02-11 21:32:10 cg Exp $'
 ! !