anchor.diff:  substitute(Other, Acc)  ->
       [ Other | Acc ].
   
  +setup_substitution(App) ->
  +    Env = application:get_all_env(App),
  +    Subst = substitute(Env,[]),
  +    case is_list(Subst) of
  +	false -> ok;
  +	true ->
  +	    lists:map(fun({K, V}) ->
  +			      application:set_env(App, K, V)
  +		      end, Subst),
  +	    ok
  +    end,
  +    ok.
  +
  +
  +    
  
positive.code: substitute_file(FieldAndDefaultAndRemainder) ->
      case get_field_and_default(FieldAndDefaultAndRemainder) of 
  	{ error, Reason, Rem } ->
  	    { lists:reverse("ERR:"++atom_to_list(Reason)), Rem };
  
  	{ ok, FileName, Default, Rem } ->
  
negative.code: substitute_env(FieldAndDefaultAndRemainder) ->
      case get_field_and_default(FieldAndDefaultAndRemainder) of 
  	{ error, Reason, Rem } ->
  	    ?warning("Could not retrieve $env field from: ~p: ~p", 
  		     [ FieldAndDefaultAndRemainder, Reason ]),
  	    { lists:reverse("ERR:"++atom_to_list(Reason)), Rem };
  
  	{ ok, FieldName, Default, Rem } ->
  