diff --git a/pkg/arvo/gen/aqua/dojo.hoon b/pkg/arvo/gen/aqua/dojo.hoon
index 9850f34bf1..65f5ccf439 100644
--- a/pkg/arvo/gen/aqua/dojo.hoon
+++ b/pkg/arvo/gen/aqua/dojo.hoon
@@ -5,8 +5,8 @@
 :-  %aqua-events
 %+  turn
   ^-  (list unix-event)
-  :~  [//term/1 %belt %ctl `@c`%e]
-      [//term/1 %belt %ctl `@c`%u]
+  :~  [//term/1 %belt %key %ctl `@c`%e]
+      [//term/1 %belt %key %ctl `@c`%u]
       [//term/1 %belt %txt ((list @c) command)]
       [//term/1 %belt %ret ~]
   ==
diff --git a/pkg/arvo/lib/ph/util.hoon b/pkg/arvo/lib/ph/util.hoon
index 3fd55c35ea..8a7103e8fc 100644
--- a/pkg/arvo/lib/ph/util.hoon
+++ b/pkg/arvo/lib/ph/util.hoon
@@ -28,8 +28,8 @@
   %+  send-events-to  who
   ^-  (list unix-event)
   :~
-    [//term/1 %belt %ctl `@c`%e]
-    [//term/1 %belt %ctl `@c`%u]
+    [//term/1 %belt %key %ctl `@c`%e]
+    [//term/1 %belt %key %ctl `@c`%u]
     [//term/1 %belt %txt ((list @c) what)]
     [//term/1 %belt %ret ~]
   ==
@@ -40,7 +40,7 @@
   |=  [who=ship what=term]
   ^-  (list ph-event)
   %+  send-events-to  who
-  :~  [//term/1 %belt %ctl (,@c what)]
+  :~  [//term/1 %belt %key %ctl (,@c what)]
   ==
 ::
 ::  Inject a file into a ship
diff --git a/pkg/arvo/mar/dill/belt.hoon b/pkg/arvo/mar/dill/belt.hoon
index 1677b6ef1e..9c52902699 100644
--- a/pkg/arvo/mar/dill/belt.hoon
+++ b/pkg/arvo/mar/dill/belt.hoon
@@ -45,8 +45,8 @@
       =+  cha=(tuba (trip q.kev))
       ?>  ?=([@ ~] cha)               ::  of a single character
       ?+  mod  !!                     ::  modified by one buckykey
-        [%ctrl ~ ~]  [%ctl i.cha]
-        [%alt ~ ~]   [%met i.cha]
+        [%ctrl ~ ~]  [%key %ctl i.cha]
+        [%alt ~ ~]   [%key %met i.cha]
       ==
     ?@  q.kev
       [%txt (tuba (trip q.kev))]
diff --git a/pkg/arvo/mar/dill/blit.hoon b/pkg/arvo/mar/dill/blit.hoon
index 9384ae91d3..5ec9b08cbe 100644
--- a/pkg/arvo/mar/dill/blit.hoon
+++ b/pkg/arvo/mar/dill/blit.hoon
@@ -19,7 +19,9 @@
     ^-  ^json
     ?+  -.dib  ~|(unsupported-blit+-.dib !!)
       %mor  [%a (turn p.dib |=(a=dill-blit:dill json(dib a)))]
-      %hop  (frond %hop (numb p.dib))
+      %hop  %+  frond  %hop
+            ?@  p.dib  (numb p.dib)
+            (pairs 'r'^(numb r.p.dib) 'c'^(numb c.p.dib) ~)
       %put  (frond -.dib (tape (tufa p.dib)))
       ?(%bel %clr)  (frond %act %s -.dib)
     ==