{
my $nref = shift;
my $s = "PC92^$main::mycall^" . gen_pc9x_t() . "^K";
- $s .= "^" . _encode_pc92_call($nref, 1);
+ $s .= "^" . _encode_pc92_call($nref, 1) . ":$main::me->{build}";
$s .= "^" . scalar $nref->nodes;
$s .= "^" . scalar $nref->users;
return $s . '^H99^';