--- rxvt-unicode/src/rxvtperl.xs	2014/05/02 20:35:00	1.220
+++ rxvt-unicode/src/rxvtperl.xs	2014/05/17 15:25:04	1.222
@@ -797,7 +797,7 @@
 #   define const_iv(name) { # name, (IV)name }
     const_iv (HOOK_INIT),
     const_iv (HOOK_DESTROY),
-    const_iv (HOOK_KEYBOARD_DISPATCH),
+    const_iv (HOOK_ACTION),
 
     const_iv (NUM_RESOURCES),
     const_iv (DEFAULT_RSTYLE),
@@ -1983,6 +1983,14 @@
 }
 
 void
+rxvt_term::tt_write_user_input (SV *octets)
+        INIT:
+          STRLEN len;
+          char *str = SvPVbyte (octets, len);
+	C_ARGS:
+          str, len
+
+void
 rxvt_term::tt_write (SV *octets)
         INIT:
           STRLEN len;