fixed PR 8359

svn: r4749

collects/drscheme/private/rep.ss

@@ -961,6 +961,9 @@ TODO
           
           (define/augment (on-submit)
             (inner (void) on-submit)
+            
+            (when (and (get-user-thread) 
+                       (thread-running? (get-user-thread)))
               ;; the -2 drops the last newline from history (why -2 and not -1?!)
               (save-interaction-in-history prompt-position (- (last-position) 2))
               (freeze-colorer)
@@ -983,7 +986,7 @@ TODO
                #f
                (λ ()
                  ;; clear out the eof object if it wasn't consumed
-               (clear-input-port))))
+                 (clear-input-port)))))
           
           ;; prompt-position : (union #f integer)
           ;; the position just after the last prompt