--- a/ProgressIndicator.st	Mon Jul 20 18:30:39 1998 +0200
+++ b/ProgressIndicator.st	Mon Jul 20 23:33:08 1998 +0200
@@ -490,7 +490,7 @@
 backgroundColor:aColor 
     "set the percentage displays background color"
 
-    aColor ~~ bgColor ifTrue:[
+    aColor ~= bgColor ifTrue:[
         bgColor := aColor.
 
         shown ifTrue:[
@@ -498,7 +498,7 @@
         ]
     ].
 
-    "Modified: / 6.6.1998 / 19:28:27 / cg"
+    "Modified: / 20.7.1998 / 23:32:48 / cg"
 !
 
 foregroundColor 
@@ -512,7 +512,7 @@
 foregroundColor:aColor 
     "set the percentage displays foreground color"
 
-    aColor ~~ fgColor ifTrue:[
+    aColor ~= fgColor ifTrue:[
         fgColor := aColor.
 
         shown ifTrue:[
@@ -520,7 +520,7 @@
         ]
     ].
 
-    "Modified: / 6.6.1998 / 19:28:34 / cg"
+    "Modified: / 20.7.1998 / 23:27:47 / cg"
 !
 
 showPercentage
@@ -750,5 +750,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.23 1998-06-06 17:48:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.24 1998-07-20 21:33:08 cg Exp $'
 ! !