diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index 173beb87bb..90af1ebabd 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -897,11 +897,11 @@ TODO
         (let ([locked? (is-locked?)])
           (when locked? (lock #f))
           (begin-edit-sequence)
-          (let ([start (last-position)])
-            (insert message start)
-            (let ([end (last-position)])
+          (let ([start (get-unread-start-point)])
+            (insert-before message)
+            (let ([end (get-unread-start-point)])
               (change-style warning-style-delta start end)
-              (insert "\n" end)))
+              (insert-before "\n")))
           (end-edit-sequence)
           (when locked? (lock #t))))
       
@@ -958,6 +958,7 @@ TODO
           (when (equal? ans 3)
             (set-custodian-limit new-limit)
             (preferences:set 'drscheme:limit-memory new-limit))
+          (set-insertion-point (last-position))
           (insert-warning "\n[Interactions disabled]")))
       
       (define/private (cleanup-interaction) ; =Kernel=, =Handler=