diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index da655a13c2..0990485cdc 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1952,7 +1952,6 @@
         (set! red? r?)
         (refresh)))
     (define/override (on-paint)
-      (super on-paint)
       (when red?
         (let ([dc (get-dc)])
           (let-values ([(cw ch) (get-client-size)])
@@ -1962,7 +1961,8 @@
               (send dc set-brush "pink" 'solid)
               (send dc draw-rectangle 0 0 cw ch)
               (send dc set-pen pen)
-              (send dc set-brush brush))))))
+              (send dc set-brush brush)))))
+      (super on-paint))
     (super-new)))
 
 (define-local-member-name 
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index cce4a88ec9..e955212d88 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -857,7 +857,13 @@ WARNING: printf is rebound in the body of the unit to always
              normalize?))]
         [else
          (preferences:get 'framework:do-paste-normalization)]))
-    (define/public (string-normalize s) (string-normalize-nfkc s))
+    (define/public (string-normalize s) 
+      
+      (let ([ns (string-normalize-nfkc s)])
+        (unless (equal? s ns)
+          (printf "normalized: ~s => ~s\n" s ns)))
+      
+      (string-normalize-nfkc s))