BUG waitVariable core dump

=head2 BUG REPORT

This program core dumps with perl 5.9.1, Tk 804.027 on Solaris 8.

=cut

use warnings;
use strict;
use Tk;

my $count = 0;
MainWindow->new->waitVariable(\$count);
__END__

This is perl, v5.9.1 built for sun4-solaris