diff --git a/scripts/mescc.mes b/scripts/mescc.mes
index 993e8565..45b723d2 100755
--- a/scripts/mescc.mes
+++ b/scripts/mescc.mes
@@ -104,7 +104,7 @@ Usage: mescc.mes [OPTION]... FILE...
   (lambda (file)
     (with-input-from-file file
       (lambda ()
-        (write (c99-input->ast #:defines defines #:includes includes))))))
+        (core:write (c99-input->ast #:defines defines #:includes includes))))))
 
 (define (source->info defines includes)
   (lambda (file)