--- a/Text.st	Wed Jan 24 15:17:50 2001 +0100
+++ b/Text.st	Thu Jan 25 15:32:31 2001 +0100
@@ -14,10 +14,10 @@
 "{ Package: 'stx:libbasic2' }"
 
 CharacterArray subclass:#Text
-	instanceVariableNames:'string runs'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Collections-Text'
+        instanceVariableNames:'string runs'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Collections-Text'
 !
 
 !Text class methodsFor:'documentation'!
@@ -446,7 +446,7 @@
     e1 == e2 ifTrue:[^ nil].
 
     e2 isSymbol ifTrue:[
-        e1 isSymbol ifTrue:[^ nil].
+        e1 isSymbol ifTrue:[^ e2].
         e1 isAssociation ifTrue:[
             e1 key == e2 ifTrue:[^ nil].
             ^ e2
@@ -514,7 +514,8 @@
      Text removeEmphasis:#color from:(Array with:#bold with:#underline with:#color->Color red) 
     "
 
-    "Modified: 14.5.1996 / 17:23:46 / cg"
+    "Modified: / 14.5.1996 / 17:23:46 / cg"
+    "Modified: / 25.1.2001 / 15:24:46 / ps"
 ! !
 
 !Text methodsFor:'accessing'!
@@ -766,7 +767,7 @@
                 font := savedFont
             ]
         ].
-	font := font onDevice:device.
+        font := font onDevice:device.
         aGC basicFont:font.
         reverse ifTrue:[
             aGC paint:bgPaint on:color
@@ -1330,6 +1331,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.70 2000-12-19 16:19:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.71 2001-01-25 14:32:31 ps Exp $'
 ! !
 Text initialize!