anchor.diff:      Ais = case Con of
   	      {tuple,Es} ->
   		  [{put_tuple,length(Es),Ret}] ++ cg_build_args(Es, Bef);
  -	      {var,V} ->	  % Normally removed by kernel optimizer.
  -		  [{move,fetch_var(V, Int),Ret}];
   	      Other ->
  -		  [{move,Other,Ret}]
  +		  [{move,cg_reg_arg(Other, Int),Ret}]
   	  end,
       {Ais,clear_dead(Int, Le#l.i, Vdb),St}.
   
  
positive.code: %% Common for new and old binary code generation.
  
  cg_bin_put({bin_seg,[],S0,U,T,Fs,[E0,Next]}, Fail, Bef) ->
      S1 = case S0 of
  	     {var,Sv} -> fetch_var(Sv, Bef);
  	     _ -> S0
  	 end,
      E1 = case E0 of
  	     {var,V} -> fetch_var(V, Bef);
  	     Other ->   Other
  	 end,
      {Format,Op} = case T of
  		      integer -> {plain,bs_put_integer};
  		      utf8 ->    {utf,bs_put_utf8};
  
negative.code: cg_bin_put({bin_end,[]}, _, _) -> [].
  
  cg_build_args(As, Bef) ->
      [{put,cg_reg_arg(A, Bef)} || A <- As].
  
  %% return_cg([Val], Le, Vdb, Bef, St) -> {[Ainstr],Aft,St}.
  %% break_cg([Val], Le, Vdb, Bef, St) -> {[Ainstr],Aft,St}.
  