anchor.diff:                
               BlockValuesList = block_values(),
               
  +            Clean = fun(BlockValues) -> clean_block_values(BlockValues) end,
  +            
  +            CleanedBlockValuesList = lists:map(Clean, BlockValuesList),
  +            
               Format = fun(Term) -> io_lib:format("~tp.~n", [Term]) end,
  -            Text = lists:map(Format, BlockValuesList),
  +            Text = lists:map(Format, CleanedBlockValuesList),
               
               case file:write_file(FileName, Text) of
                   ok -> 
  
positive.code: ui_save_blocks(Params) ->
      %% Write the block values to a configuration file
      % TODO:  Add BlockPoint specific header?
      case length(Params) of
          0 -> io:format("Error: Enter file name~n");
          1 ->
  
negative.code: % Process link blocks command
  ui_link_blocks(_Params) ->
      io:format("Not Implemented~n").
      
  % Process add attribute command
  ui_add_attrib(_Params) ->
      io:format("Not Implemented~n").
      
  % Process remove attribute command
  ui_remove_attrib(_Params) ->
      io:format("Not Implemented~n").
  
  
  % Process the load blocks command
  