diff --git a/collects/framework/private/aspell.rkt b/collects/framework/private/aspell.rkt
index 6a6006a268..803a789e64 100644
--- a/collects/framework/private/aspell.rkt
+++ b/collects/framework/private/aspell.rkt
@@ -48,7 +48,8 @@
 (define problematic 'dont-know)
 (define (aspell-problematic?)
   (when (eq? problematic 'dont-know)
-    (set! problematic (do-aspell-problematic)))
+    (set! problematic (do-aspell-problematic))
+    (asp-log (format "set problematic to ~s" problematic)))
   problematic)
 
 (define (do-aspell-problematic)
diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt
index caa79ad448..d6de70ad64 100644
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@@ -394,7 +394,7 @@ added get-regions
                            [lp 0])
                   (cond
                     [(null? spellos) 
-                     (add-coloring color (+ sp lp) (+ sp (string-length str)))]
+                     (add-coloring color (+ pos lp) (+ pos (string-length str)))]
                     [else
                      (define err (car spellos))
                      (define err-start (list-ref err 0))