diff --git a/gnu/build/marionette.scm b/gnu/build/marionette.scm
index a9dbce538f..fe754cd147 100644
--- a/gnu/build/marionette.scm
+++ b/gnu/build/marionette.scm
@@ -317,8 +317,8 @@ PREDICATE, whichever comes first.  Raise an error when TIMEOUT is exceeded."
     (#\( . "shift-9")
     (#\) . "shift-0")
     (#\/ . "slash")
-    (#\< . "less")
-    (#\> . "shift-less")
+    (#\< . "shift-comma")
+    (#\> . "shift-dot")
     (#\. . "dot")
     (#\, . "comma")
     (#\; . "semicolon")