diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.ss
index a79458ea2f..8cd640ad4f 100644
--- a/collects/drscheme/private/auto-language.ss
+++ b/collects/drscheme/private/auto-language.ss
@@ -27,9 +27,7 @@
                        (set! settings (send lang metadata->settings str))
                        (let ([locked? (send text is-locked?)])
                          (when locked? (send text lock #f))
-                         (printf "before ~s\n" (send text get-text 0 (send text last-position)))
                          (send text delete 0 (send text paragraph-start-position lines))
-                         (printf "after ~s\n" (send text get-text 0 (send text last-position)))
                          (when locked? (send text lock #t))))))))))
          all-languages)