anchor.diff:        gen_server:call(Pid, {format, "../demos/test1.xml"}).
   
   format(Pid, File) ->
  -  gen_server:call(Pid, {format, File}).
  +  gen_server:call(Pid, {format, File},infinity).
   
   format_string(Pid, String, Root) ->
     gen_server:call(Pid, {format_string, String, Root}).
  
positive.code:     end.
  
  
  format_flow1([Xml={Tag,Args,Data}|T], Box1, PDF) ->
      %% io:format("Flow Chunk:~n~p~n into box:~n~p~n", [Xml, Box1]),
      CurrentObj = get_tag_schema(atom_to_list(Tag), Box1#box.objs),
      TagMap = CurrentObj#obj.tags,
  
negative.code: %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  
  handle_cast({format_string, String, Root, To}, _State) ->
    Serialised = convert_xml_to_pdf(String, Root),
    To ! Serialised;
    
  handle_cast({format, File, To}, _State) ->
    Out = filename:rootname(File) ++ ".pdf",
    case file:read_file(File) of
  	{ok, Bin} ->
  