anchor.diff:  time_ms(infinity, _, _) -> infinity;
   time_ms(Fun, TCPid, MultAndScale) when is_function(Fun) ->
       time_ms_apply(Fun, TCPid, MultAndScale);
  -time_ms({M,F,A}=MFA, TCPid, MultAndScale) when is_atom(M), is_atom(F), is_list(A) ->
  +time_ms({M,F,A}=MFA, TCPid, MultAndScale) when is_atom(M),
  +					       is_atom(F),
  +					       is_list(A) ->
       time_ms_apply(MFA, TCPid, MultAndScale);
   time_ms(Other, _, _) -> exit({invalid_time_format,Other}).
   
  
positive.code: 	NewReturn ->
  	    {NewReturn,SaveOpts}
      end;
  process_return_val1([SaveCfg={save_config,_}|Opts], M,F,[Args], Loc, Final, SaveOpts) ->
      process_return_val1(Opts, M,F,[[SaveCfg|Args]], Loc, Final, SaveOpts);
  process_return_val1([{skip_and_save,Why,SaveCfg}|Opts], M,F,[Args], Loc, _, SaveOpts) ->
      process_return_val1(Opts, M,F,[[{save_config,SaveCfg}|Args]], Loc, {skip,Why}, SaveOpts);
  process_return_val1([GR={return_group_result,_}|Opts], M,F,A, Loc, Final, SaveOpts) ->
      process_return_val1(Opts, M,F,A, Loc, Final, [GR|SaveOpts]);
  process_return_val1([RetVal={Tag,_}|Opts], M,F,A, Loc, _, SaveOpts) when Tag==skip;
  									 Tag==comment ->
      process_return_val1(Opts, M,F,A, Loc, RetVal, SaveOpts);
  process_return_val1([_|Opts], M,F,A, Loc, Final, SaveOpts) ->
      process_return_val1(Opts, M,F,A, Loc, Final, SaveOpts);
  
negative.code: 	    put(test_server_timetraps,[{Handle,TCPid,{TimeToReport,Scale}}]);
  	List ->
  	    List1 = lists:delete({infinity,TCPid,{infinity,false}}, List),
  	    put(test_server_timetraps,[{Handle,TCPid,
  					{TimeToReport,Scale}}|List1])
      end,
      Handle.
  
  