--- rxvt-unicode/src/perl/digital-clock	2006/01/03 20:47:36	1.7
+++ rxvt-unicode/src/perl/digital-clock	2006/01/23 23:13:03	1.9
@@ -2,13 +2,13 @@
 
 # this creates a simple digital clock
 
-sub on_init {
+sub on_start {
    my ($self) = @_;
 
    $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
    $self->{timer} = urxvt::timer
                     ->new
-                    ->start (int urxvt::NOW) # make sure we update "on" the second
+                    ->start (1 + int urxvt::NOW) # make sure we update "on" the second
                     ->interval (1)
                     ->cb (sub {
                        $self->{overlay}->set (0, 0,