--- rxvt-unicode/src/rxvtperl.xs	2006/01/02 20:35:39	1.5
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/02 21:17:01	1.6
@@ -243,6 +243,10 @@
           XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
           break;
 
+        case DT_STRING:
+          XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
+          break;
+
         case DT_END:
           {
             va_end (ap);
@@ -305,6 +309,7 @@
   set_hookname (TTY_ACTIVITY);
   set_hookname (REFRESH_BEGIN);
   set_hookname (REFRESH_END);
+  set_hookname (KEYBOARD_COMMAND);
 
   sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR);
 }