anchor.diff:  
   fwrite1(F, As) ->
       case catch lfe_io_format:fwrite1(F, As) of
  -    {'EXIT',_} ->                %Something went wrong
  -        erlang:error(badarg, [F,As]);    %Signal from here
  -    Result -> Result
  -    end.
  +        {'EXIT',_} ->                           %Something went wrong
  +            erlang:error(badarg, [F,As]);       %Signal from here
  +        Result -> Result
  +    end.
  
positive.code: 
  start_symb_char($#) -> false;
  start_symb_char($`) -> false;
  start_symb_char($') -> false;            %'
  start_symb_char($,) -> false;
  start_symb_char($|) -> false;            %Symbol quote character
  start_symb_char(C) -> symb_char(C).
  
  symb_char($() -> false;
  
negative.code: print1_tail(S, D) -> [" . "|print1(S, D)].
  
  %% quote_symbol(Symbol, SymbChars) -> bool().
  %%  Check if symbol needs to be quoted when printed. If it can read as
  %%  a number then it must be quoted.
  
  quote_symbol('.', _) -> true;                   %Needs quoting
  quote_symbol(_, [C|Cs]=Cs0) ->
      case catch {ok,list_to_float(Cs0)} of
      {ok,_} -> true;
  