diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c
index 28afdcc0671..744025b1b76 100644
--- a/mps/example/scheme/scheme-advanced.c
+++ b/mps/example/scheme/scheme-advanced.c
@@ -410,6 +410,7 @@ static void error(const char *format, ...)
   if (error_handler) {
     longjmp(*error_handler, 1);
   } else {
+    fflush(stdout);
     fprintf(stderr, "Fatal error during initialization: %s\n",
             error_message);
     abort();
@@ -4004,6 +4005,7 @@ static mps_res_t obj_scan(mps_ss_t ss, mps_addr_t base, mps_addr_t limit)
         break;
       default:
         assert(0);
+        fflush(stdout);
         fprintf(stderr, "Unexpected object on the heap\n");
         abort();
       }
@@ -4074,6 +4076,7 @@ static mps_addr_t obj_skip(mps_addr_t base)
     break;
   default:
     assert(0);
+    fflush(stdout);
     fprintf(stderr, "Unexpected object on the heap\n");
     abort();
   }
@@ -4367,6 +4370,7 @@ static int start(int argc, char *argv[])
              make_operator(optab[i].name, optab[i].entry,
                            obj_empty, obj_empty, env, op_env));
   } else {
+    fflush(stdout);
     fprintf(stderr,
             "Fatal error during initialization: %s\n",
             error_message);
@@ -4375,8 +4379,10 @@ static int start(int argc, char *argv[])
 
   if (argc > 0) {
     /* Non-interactive file execution */
-    if (setjmp(*error_handler) != 0) {
+    if(setjmp(*error_handler) != 0) {
+      fflush(stdout);
       fprintf(stderr, "%s\n", error_message);
+      fflush(stderr);
       exit_code = EXIT_FAILURE;
     } else
       for (i = 0; i < argc; ++i)
@@ -4394,12 +4400,15 @@ static int start(int argc, char *argv[])
          "If you recurse too much the interpreter may crash from using too much C stack.");
     for(;;) {
       if(setjmp(*error_handler) != 0) {
+        fflush(stdout);
         fprintf(stderr, "%s\n", error_message);
+        fflush(stderr);
       }
 
       mps_chat();
       printf("%lu, %lu> ", (unsigned long)total,
              (unsigned long)mps_collections(arena));
+      fflush(stdout);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme-boehm.c b/mps/example/scheme/scheme-boehm.c
index 8ac42699512..43e8967fb21 100644
--- a/mps/example/scheme/scheme-boehm.c
+++ b/mps/example/scheme/scheme-boehm.c
@@ -281,6 +281,7 @@ static void error(char *format, ...)
   if (error_handler) {
     longjmp(*error_handler, 1);
   } else {
+    fflush(stdout);
     fprintf(stderr, "Fatal error during initialization: %s\n",
             error_message);
     abort();
@@ -3599,6 +3600,7 @@ int main(int argc, char *argv[])
              make_operator(optab[i].name, optab[i].entry,
                            obj_empty, obj_empty, env, op_env));
   } else {
+    fflush(stdout);
     fprintf(stderr,
             "Fatal error during initialization: %s\n",
             error_message);
@@ -3608,6 +3610,7 @@ int main(int argc, char *argv[])
   if(argc >= 2) {
     /* Non-interactive file execution */
     if(setjmp(*error_handler) != 0) {
+      fflush(stdout);
       fprintf(stderr, "%s\n", error_message);
       return EXIT_FAILURE;
     }
@@ -3618,9 +3621,13 @@ int main(int argc, char *argv[])
     /* Interactive read-eval-print loop */
     puts("Scheme Test Harness");
     for(;;) {
-      if(setjmp(*error_handler) != 0)
+      if(setjmp(*error_handler) != 0) {
+        fflush(stdout);
         fprintf(stderr, "%s\n", error_message);
+        fflush(stderr);
+      }
       printf("%lu> ", (unsigned long)total);
+      fflush(stdout);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme-malloc.c b/mps/example/scheme/scheme-malloc.c
index 2b27c50ab0f..af619f9c15c 100644
--- a/mps/example/scheme/scheme-malloc.c
+++ b/mps/example/scheme/scheme-malloc.c
@@ -279,6 +279,7 @@ static void error(char *format, ...)
   if (error_handler) {
     longjmp(*error_handler, 1);
   } else {
+    fflush(stdout);
     fprintf(stderr, "Fatal error during initialization: %s\n",
             error_message);
     abort();
@@ -3596,6 +3597,7 @@ int main(int argc, char *argv[])
              make_operator(optab[i].name, optab[i].entry,
                            obj_empty, obj_empty, env, op_env));
   } else {
+    fflush(stdout);
     fprintf(stderr,
             "Fatal error during initialization: %s\n",
             error_message);
@@ -3605,6 +3607,7 @@ int main(int argc, char *argv[])
   if(argc >= 2) {
     /* Non-interactive file execution */
     if(setjmp(*error_handler) != 0) {
+      fflush(stdout);
       fprintf(stderr, "%s\n", error_message);
       return EXIT_FAILURE;
     }
@@ -3615,9 +3618,13 @@ int main(int argc, char *argv[])
     /* Interactive read-eval-print loop */
     puts("Scheme Test Harness");
     for(;;) {
-      if(setjmp(*error_handler) != 0)
+      if(setjmp(*error_handler) != 0) {
+        fflush(stdout);
         fprintf(stderr, "%s\n", error_message);
+        fflush(stderr);
+      }
       printf("%lu> ", (unsigned long)total);
+      fflush(stdout);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index b3bc0c6801d..971314528f8 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -402,6 +402,7 @@ static void error(const char *format, ...)
   if (error_handler) {
     longjmp(*error_handler, 1);
   } else {
+    fflush(stdout);
     fprintf(stderr, "Fatal error during initialization: %s\n",
             error_message);
     abort();
@@ -3991,6 +3992,7 @@ static mps_res_t obj_scan(mps_ss_t ss, mps_addr_t base, mps_addr_t limit)
         break;
       default:
         assert(0);
+        fflush(stdout);
         fprintf(stderr, "Unexpected object on the heap\n");
         abort();
       }
@@ -4067,6 +4069,7 @@ static mps_addr_t obj_skip(mps_addr_t base)
     break;
   default:
     assert(0);
+    fflush(stdout);
     fprintf(stderr, "Unexpected object on the heap\n");
     abort();
   }
@@ -4297,6 +4300,7 @@ static int start(int argc, char *argv[])
              make_operator(optab[i].name, optab[i].entry,
                            obj_empty, obj_empty, env, op_env));
   } else {
+    fflush(stdout);
     fprintf(stderr,
             "Fatal error during initialization: %s\n",
             error_message);
@@ -4305,8 +4309,10 @@ static int start(int argc, char *argv[])
 
   if (argc > 0) {
     /* Non-interactive file execution */
-    if (setjmp(*error_handler) != 0) {
+    if(setjmp(*error_handler) != 0) {
+      fflush(stdout);
       fprintf(stderr, "%s\n", error_message);
+      fflush(stderr);
       exit_code = EXIT_FAILURE;
     } else
       for (i = 0; i < argc; ++i)
@@ -4324,12 +4330,15 @@ static int start(int argc, char *argv[])
          "If you recurse too much the interpreter may crash from using too much C stack.");
     for(;;) {
       if(setjmp(*error_handler) != 0) {
+        fflush(stdout);
         fprintf(stderr, "%s\n", error_message);
+        fflush(stderr);
       }
 
       mps_chat();
       printf("%lu, %lu> ", (unsigned long)total,
              (unsigned long)mps_collections(arena));
+      fflush(stdout);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);