diff --git a/functional-tests/functional-tests.scm b/functional-tests/functional-tests.scm
index b1c6c64..aa5b95c 100644
--- a/functional-tests/functional-tests.scm
+++ b/functional-tests/functional-tests.scm
@@ -92,7 +92,7 @@
       (fmt #t
            (cat (fmt-keys prev-keys keys)
                 (dsp #\space)
-                (pad-char #\. (space-to 38))
+                (pad-char #\. (space-to 60))
                 (dsp #\space)))
       (flush)
       (fmt #t (cat (fn keys) nl))