--- rxvt-unicode/src/command.C	2006/02/23 19:26:56	1.310
+++ rxvt-unicode/src/command.C	2006/03/04 20:14:35	1.311
@@ -3758,6 +3758,10 @@
   dLocal (Display *, dpy);
 
   assert (str != NULL);
+  
+  if (HOOK_INVOKE ((this, HOOK_OSC_SEQ, DT_INT, op, DT_STR, str, DT_END)))
+    ; // no responses yet
+
   switch (op)
     {
       case XTerm_name:
@@ -3984,7 +3988,7 @@
 
 #if ENABLE_PERL
       case URxvt_perl:
-        if (HOOK_INVOKE ((this, HOOK_OSC_SEQ, DT_STR, str, DT_END)))
+        if (HOOK_INVOKE ((this, HOOK_OSC_SEQ_PERL, DT_STR, str, DT_END)))
           ; // no responses yet
         break;
 #endif