- if ($pt+$investigation_int < $main::systime && !Investigate::get($call)) {
- my $iref = Investigate->new($call);
- $iref->version($ver);
- $iref->here($here);
+ if ($pt+$investigation_int < $main::systime && !Investigate::get($call, $self->{call})) {
+ my $ivp = Investigate->new($call, $self->{call});
+ $ivp->version($ver);
+ $ivp->here($here);
+ $ivp->store_pcxx($pcno,$line,$origin,'PC19',$here,$call,$conf,$ver,$_[-1]);