%
% stack: raw-instruct
%
"Insure" *nexushub

*atoptype
"valid" log)(
{
%
% valid instruct and type
%
 _Atop.Prefix &_Atop.Instruct
 dup !Atop.Target
 *atoplnat
}
{
%
% invalid instruct and type, use current
%
 _Atop.Content *atoptype
"validc" log)(
 {
%
% valid instruct and type
%
  _Atop.Prefix &_Atop.Instruct
  !Atop.Target

 }
 {
%
% invalid instruct and type
%
 } ifelse


} ifelse