Index: tolbase/lib/toltk/bystext.tcl
===================================================================
--- tolbase/lib/toltk/bystext.tcl	(revision 4ea7b59c10afb21a2347d70efaa518f0559bcda5)
+++ 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: