diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt
index d108a0a668..f0189b7925 100644
--- a/collects/drracket/private/language-configuration.rkt
+++ b/collects/drracket/private/language-configuration.rkt
@@ -1757,9 +1757,8 @@
           (send txt change-style link-sd 0 (send txt last-position))))
       
       (define link-sd (make-object style-delta% 'change-underline #t))
-      (define stupid-internal-define-syntax1
-        (begin (send link-sd set-delta-foreground "blue")
-               (send link-sd set-family 'default)))
+      (send link-sd set-delta-foreground "blue")
+      (send link-sd set-family 'default)
       
       (main))
     
diff --git a/collects/drracket/private/rep.rkt b/collects/drracket/private/rep.rkt
index 4e730d525b..ef30b47836 100644
--- a/collects/drracket/private/rep.rkt
+++ b/collects/drracket/private/rep.rkt
@@ -369,17 +369,16 @@ TODO
   
   
   ;; insert/delta : (instanceof text%) (union snip string) (listof style-delta%) *-> (values number number)
-  ;; inserts the string/stnip into the text at the end and changes the
+  ;; inserts the string/snip into the text at the end and changes the
   ;; style of the newly inserted text based on the style deltas.
   (define (insert/delta text s . deltas)
-    (let ([before (send text last-position)])
-      (send text insert s before before #f)
-      (let ([after (send text last-position)])
-        (for-each (λ (delta)
-                    (when (is-a? delta style-delta%)
-                      (send text change-style delta before after)))
-                  deltas)
-        (values before after))))
+    (define before (send text last-position))
+    (send text insert s before before #f)
+    (define after (send text last-position))
+    (for ([delta (in-list deltas)])
+      (when (is-a? delta style-delta%)
+        (send text change-style delta before after)))
+    (values before after))
   
   (define log-max-size 1000)
   (define log-entry-max-size 1000)