%
% stack: category
%
% check the symbol existence in category
%
dup !Pho.Class
%
% look up the code in the proper category
%
_looksym exch look
not
{
 _looksym "Allz" look pop
} if
%
% if a value was set in the name field, the code was found
%
% stack:
%