--- rxvt-unicode/src/urxvt.pm	2006/01/03 20:47:36	1.24
+++ rxvt-unicode/src/urxvt.pm	2006/01/03 21:08:39	1.25
@@ -386,6 +386,8 @@
    verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
       if $verbosity >= 10;
 
+   keys %$cb;
+
    while (my ($pkg, $cb) = each %$cb) {
       return 1
          if $cb->(