anchor.diff:  	 end
        end, Options),
     NewParsedOptions1 =
  -    case proplists:get_value(validator) of
  +    case proplists:get_value(validator,ParsedOptions) of
         undefined -> [{validator,java_validator}|ParsedOptions];
         _ -> ParsedOptions
       end,
     NewParsedOptions2 =
  -    case proplists:get_value(timeout) of
  +    case proplists:get_value(timeout,NewParsedOptions1) of
         undefined -> [{timeout,1500}|NewParsedOptions1];
         _ -> NewParsedOptions1
       end,
  
positive.code: 		%%("Checking schema ~p~nagainst~n~s~n",
  		 %%[RealTargetSchema,
  		  %%Body]),
  	      [{_,Validator}] = 
  		get_option(validator),
  	      try Validator:validate(RealTargetSchema,Body) of
  		  true -> true;
  		  false -> false
  
negative.code:     Links ->
        js_links_machine:init_table(PrivateModule,Links)
    end,
    check_and_set_options(Options),
    js_links_machine:test().
  
  %% To make eqc not print the horrible counterexample
  