
  VAR
    jmv$current_class_name: [XREF] array [jmt$profile_object_kinds] of
          ^array [1 .. * ] of ost$name;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$profile_object_kinds
*copyc ost$name
?? POP ??
