diff --git a/module/mescc/M1.scm b/module/mescc/M1.scm
index 03a44e0c..894c6cc9 100644
--- a/module/mescc/M1.scm
+++ b/module/mescc/M1.scm
@@ -87,7 +87,7 @@
                                      (dec->hex (quotient o #x100000000))))
       (string-append "%" (number->string (dec->hex (modulo o #x100000000)))
                      " %" (if (< o 0) "-1"
-                              (number->string (dec->hex (quoteint o #x100000000)))))))
+                              (number->string (dec->hex (quotient o #x100000000)))))))
 
 (define* (display-join o #:optional (sep ""))
   (let loop ((o o))