Index: tolbase/lib/toltk/bystext.tcl
===================================================================
--- tolbase/lib/toltk/bystext.tcl	(revision edd8cc09536fea9a73ff95d90f392adc6dd886ff)
+++ tolbase/lib/toltk/bystext.tcl	(revision 1027aba6f9f1723e746ef7afed066d1e4a0220fd)
@@ -995,8 +995,8 @@
     Text TimeSet VMatrix Class \#Embed \#Require Static ]  
 
-  ctext::addHighlightClass $w stackControl black {BinGroup Case Copy Dating\
+  ctext::addHighlightClass $w stackControl purple {BinGroup Case Copy Dating\
     Do Element Eval EvalArg Field Find Group IF If MakeGlobal PutDescription\
     PutName PutValue ReCalc TOLPath While Write WriteLn False True For\
-    EvalSet}
+    EvalSet inf \-inf \+inf \? }
 
   # Line comments: