anchor.diff:    %%io:format
       %%("~nfollow_link:~n~p~n URI is ~p; request ~p~n",
        %%[Link,URI,RequestType]),
  +  case jsg_links:link_title(Link) of
  +    String when is_list(String) ->
  +      Key = list_to_atom(String),
  +      {ok,Stats} = jsg_store:get(stats),
  +      NewValue =
  +	case lists:keyfind(Key,1,Stats) of
  +	  false -> 1;
  +	  {_,N} -> N+1
  +	end,
  +      jsg_store:put(stats,lists:keystore(Key,1,Stats,{Key,NewValue}));
  +    _ -> ok
  +  end,
     Result = http_request(URI,RequestType,Body,QueryParms),
     NewResult =
       case response_has_body(Result) of
  
positive.code:   print_commands(Rest).
    
  test() ->
    case eqc:quickcheck(eqc:on_output(fun eqc_printer/2,prop_ok())) of
      false ->
        io:format("~n~n***FAILED~n");
      true ->
        io:format("~n~nPASSED~n",[])
    end.
  
  run_statem(PrivateModule,Files) ->
  
negative.code:       RealBody;
      _ ->
        Body
    end.
  
  has_ets_body({ok,{_,_,Body}}) ->
    case Body of
      ets_body ->
        true;
      _ ->
        false
    end.
  
  http_status_line({ok,{StatusLine,_,_}}) ->
  