,

svn: r510

collects/tests/framework/framework-test-engine.ss

@@ -55,6 +55,8 @@
 					 (map (lambda (x) (string-append (exception->string x) (string #\newline)))
 					      these-errs)))))
 		      out)
+                     (newline out)
+                     (flush-output out)
 		     (loop))))))))))
 
   (let ([od (event-dispatch-handler)]

collects/tests/framework/test-suite-utils.ss

@@ -195,10 +195,12 @@
 			     [(tcp-error? x) 
 			      (restart-mred)
 			      (write sexp out-port)
-			      (newline out-port)]
+			      (newline out-port)
+                              (flush-output out-port)]
 			     [else (raise x)]))])
 	  (write sexp out-port)
-	  (newline out-port))
+	  (newline out-port)
+          (flush-output out-port))
 	(let ([answer
 	       (with-handlers ([exn:fail?
 				(lambda (x)