--- rxvt-unicode/src/rxvtperl.xs	2014/09/05 19:02:53	1.228
+++ rxvt-unicode/src/rxvtperl.xs	2014/10/13 17:05:32	1.229
@@ -1870,6 +1870,13 @@
         RETVAL
 
 void
+rxvt_term::register_command (int keysym, unsigned int state, SV *str)
+        CODE:
+        wchar_t *wstr = sv2wcs (str);
+        THIS->keyboard->register_action (keysym, state, wstr);
+        free (wstr);
+
+void
 rxvt_term::screen_cur (...)
 	PROTOTYPE: $;$$
         ALIAS: