--- rxvt-unicode/src/rxvtperl.xs	2012/06/05 19:32:29	1.170
+++ rxvt-unicode/src/rxvtperl.xs	2012/06/05 22:23:07	1.171
@@ -394,7 +394,7 @@
 }
 
 void
-rxvt_perl_interp::usage (int type)
+rxvt_perl_interp::usage (rxvt_term *term, int type)
 {
   localise_env set_environ (perl_environ);
 
@@ -402,7 +402,9 @@
   SAVETMPS;
 
   dSP;
-  XPUSHs (sv_2mortal (newSViv (type)));
+  EXTEND (SP, 2);
+  PUSHs (sv_2mortal (newSVterm (term)));
+  PUSHs (sv_2mortal (newSViv (type)));
   PUTBACK;
   call_pv ("urxvt::usage", G_VOID | G_DISCARD | G_EVAL);
 
@@ -881,6 +883,11 @@
 }
 
 void
+log (const char *msg)
+	CODE:
+        rxvt_log ("%s", msg);
+
+void
 warn (const char *msg)
 	CODE:
         rxvt_warn ("%s", msg);