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: 			      Right = wrangler_syntax:infix_expr_right(Node),
  			      case wrangler_syntax:type(Left) of
  				  atom ->
  				      Left1 = wrangler_misc:update_ann(Left, {pname, []}),
  				      wrangler_syntax:copy_attrs(Node, wrangler_syntax:infix_expr(Left1, Op, Right));
  				  _ -> Node
  			      end;
  
negative.code: 			{TypeSigPid, value, {ParSig, RtnSig}} ->
  			    F = fun ({A, S}) ->
  					case S of
  					    {p_name, _}    %% Can you do this to Pid?
  						       ->
                                                  wrangler_misc:update_ann(A, S);
  					    _ -> A
  