Index: system.scm
===================================================================
--- system.scm	(revision 6392)
+++ system.scm	(working copy)
@@ -89,12 +89,15 @@
   (let* ((messages :: <gnu.text.SourceMessages>
 		   (make <gnu.text.SourceMessages>))
 	 (comp :: <gnu.expr.Compilation>
-	       (invoke-static <kawa.lang.CompileFile> 'read (source:toString) messages)))
-    (if (invoke messages 'seenErrors)
-	(primitive-throw (make <gnu.text.SyntaxException> messages)))
+	       (invoke-static <kawa.lang.CompileFile> 'read (source:toString) messages))
+	 (err :: <gnu.mapping.OutPort> (current-output-port)))
+    (when (invoke messages 'seenErrors)
+      (invoke messages 'printAll err 40)
+      (primitive-throw (make <gnu.text.SyntaxException> messages)))
     (invoke comp 'compileToArchive
 	    (invoke comp 'getModule)
 	    output)
+    (invoke messages 'printAll err 40)
     (if (invoke messages 'seenErrors)
 	(primitive-throw (make <gnu.text.SyntaxException> messages)))))
 
