--- a/Text.st	Fri Jul 02 12:48:49 1999 +0200
+++ b/Text.st	Mon Jul 05 14:42:15 1999 +0200
@@ -568,6 +568,9 @@
 
     |newRuns|
 
+    aStringOrText isCharacter ifTrue:[
+        ^ self , aStringOrText asString
+    ].
     aStringOrText hasChangeOfEmphasis ifTrue:[    
         ^ self species new
             string:(string , aStringOrText)
@@ -1235,6 +1238,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.52 1999-06-29 18:38:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.53 1999-07-05 12:42:15 cg Exp $'
 ! !
 Text initialize!