--- a/Text.st	Sat Jul 15 16:41:47 2000 +0200
+++ b/Text.st	Mon Jul 17 12:47:31 2000 +0200
@@ -585,6 +585,7 @@
 
     aStringOrText isString ifFalse:[^ false].
     (string = aStringOrText string) ifFalse:[^ false].
+    self hasChangeOfEmphasis = aStringOrText hasChangeOfEmphasis ifFalse:[^ false].
     ^ self emphasis = aStringOrText emphasis
 
     "
@@ -1364,6 +1365,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.66 2000-07-15 14:41:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.67 2000-07-17 10:47:31 cg Exp $'
 ! !
 Text initialize!