--- rxvt-unicode/src/rxvtperl.xs	2011/11/30 12:53:50	1.144
+++ rxvt-unicode/src/rxvtperl.xs	2011/12/02 09:03:43	1.145
@@ -1587,6 +1587,13 @@
         RETVAL
 
 void
+rxvt_term::register_command (int keysym, unsigned int state, SV *str)
+        CODE:
+        wchar_t *wstr = sv2wcs (str);
+        THIS->keyboard->register_user_translation (keysym, state, wstr);
+        free (wstr);
+
+void
 rxvt_term::screen_cur (...)
 	PROTOTYPE: $;$$
         ALIAS: