fix starting position for syntax coloring

svn: r9685

collects/framework/private/color.ss

@@ -118,7 +118,7 @@ added get-regions
                         #t
                         (new token-tree%)
                         +inf.0
-                        0
+                        start
                         (new paren-tree% (matches pairs))))
 
     (define lexer-states (list (make-new-lexer-state 0 'end)))
@@ -196,6 +196,7 @@ added get-regions
                 (cons (make-new-lexer-state (caar new) (cadar new))
                       (loop null (cdr new)))]))))
 
+    
     (define/public (get-regions) 
       (map (lambda (ls)
              (list (lexer-state-start-pos ls)