diff --git a/mes/module/mes/guile.mes b/mes/module/mes/guile.mes
index 30c9b1dd..1def63dc 100644
--- a/mes/module/mes/guile.mes
+++ b/mes/module/mes/guile.mes
@@ -104,8 +104,8 @@
       (core:display-error (string-append "open-input-file: `" file "'"))
       (when (> debug 3)
         (core:display-error " port=")
-        (core:display-error port)))
-    (core:display-error "\n")
+        (core:display-error port))
+      (core:display-error "\n"))
     port))
 
 (define (dirname file-name)