anchor.diff:  				case lists:keysearch(pid, 1, Ann1) of
   				    {value, {pid, Value1}} ->
   					{pid, Value1};
  -				    _ -> case lists:keysearch(pname, 1, Ann1) of
  -					     {value, {pname, V}} ->
  -						 {pname, V};
  +				    _ -> case lists:keysearch(p_name, 1, Ann1) of
  +					     {value, {p_name, V}} ->
  +						 {p_name, V};
   					     _ -> any
   					 end
   				end
  
positive.code: 				  {value, {pid, PidInfo1}} -> PidInfo1;
  				  _ -> []
  			      end,
  		    Arg11 = wrangler_misc:update_ann(Arg1, {pname, PidInfo}),
  		    Node1 = wrangler_syntax:copy_attrs(Node, wrangler_syntax:application(Op, [Arg11, Arg2])),
  		    case lists:keysearch(def, 1, wrangler_syntax:get_ann(Arg1)) of
  			{value, {def, DefinePos}} ->  %% the process name is a variable.
  			    EnvPid ! {add, {{def, DefinePos}, {pname, PidInfo}}};
  			_ -> case wrangler_syntax:type(Arg1) of
  				 atom -> EnvPid ! {add, {{name, wrangler_syntax:atom_value(Arg1)}, {pname, PidInfo}}};
  				 _ -> ok
  			     end
  		    end,
  
negative.code: 			any -> Typ;
  			%% Special case: some application sites are deciable pids, some are undeciable.
  			{pid, Vs} -> {pid, lists:usort([any| Vs])};
  			{p_name, V} -> {p_name, V}
  		      end
  		end
  	end,
  