--- a/Text.st	Wed Mar 19 09:51:14 2003 +0100
+++ b/Text.st	Wed Mar 19 09:51:38 2003 +0100
@@ -1297,7 +1297,11 @@
      The emphasis collection contains per-character information."
 
     string := aString string.
-    runs := emphasisCollection asRunArray
+    string size == 0 ifTrue:[
+        runs := RunArray new.
+    ] ifFalse:[
+        runs := emphasisCollection asRunArray
+    ].
 
     "
      |t|
@@ -1476,6 +1480,7 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.83 2002-08-06 16:19:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.84 2003-03-19 08:51:38 cg Exp $'
 ! !
+
 Text initialize!