sub taxis
{
   my ($self, $r_running, @whatever, ) = @_;
   $mw->update;   
   $$r_running = 1;
   # other stuff
   my $null = 0;
   $self->taxis(\$null, $whatever); 
   $$r_running = 0;
   return;
}