anchor.diff:  io_to_integer(Val,Len,Prec) when is_binary(Val) ->
       io_to_integer(binary_to_list(Val),Len,Prec);
   io_to_integer(Val,Len,Prec) ->
  -    Value = try  list_to_integer(lists:delete(?THOUSAND_SEP,Val))
  +    Value = try  list_to_integer(string:join(string:tokens(Val,?THOUSAND_SEP),[]))
           catch _:_ -> 
               try erlang:round(list_to_float(Val))
               catch _:_ ->  
  
positive.code:         ?assertEqual(-200, io_to_db(Item,OldInteger,integer,100,0,Def,RW,<<"300-500">>)),
          ?assertEqual(12, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"120/10.0">>)),
          ?assertEqual(12, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"120/10.0001">>)),
          ?assertException(throw, {ClEr,{"Data conversion format error",{0,{integer,3,1,"1234"}}}}, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,<<"1234">>)),
          ?assertException(throw, {ClEr,{"Data conversion format error",{0,{integer,<<"-">>}}}}, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,<<"-">>)),
          ?assertEqual(default, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,?emptyIo)),
  
negative.code: integer_filter($-,Acc) -> [$-|Acc];
  integer_filter(D,Acc) -> 
      case (length(Acc)+1) rem 4 of
          0 ->    [D,hd(?THOUSAND_SEP)|Acc];
          _ ->    [D|Acc]
      end.
  -else.
  