anchor.diff:  link_permitted_int(_State,_Link) ->
     true.
   
  -precondition(State,Call) ->
  -  try
  -    case Call of
  -      {_, _, follow_link, _, _} ->
  -	make_call(precondition,fun precondition_int/2,[State,Call]);
  -      _ ->
  -	precondition_int(State,Call)
  -    end
  -  catch Class:Reason ->
  -      io:format
  -	("Warning: precondition/2 raises exception ~p~n",
  -	 [Reason]),
  -      StackTrace = erlang:get_stacktrace(),
  -      erlang:raise(Class,Reason,StackTrace)
  -  end.
  -
  -precondition_int(State,Call) ->
  -  case Call of
  -    {_, _, follow_link, [Link,_], _} ->
  -      (State#state.initialized==true) andalso
  -      ((jsg_links:link_type(Link)==static)
  -       orelse jsl_dynamic_links:is_element(Link,State#state.dynamic_links))
  -	andalso link_permitted(State,Link);
  -    _ ->
  -      State#state.initialized==false
  -  end.
  -
  -postcondition(State,Call,Result) ->
  -  case Call of
  -    {_, _, follow_link, _, _} ->
  -      %%io:format
  -	%%("number of dynamic links=~p:~n",
  -	 %%[jsl_dynamic_links:size(State#state.dynamic_links)]),
  -      _Distribution = 
  -	lists:foldl
  -	  (fun (Link,Counts) ->
  -	       Title = jsg_links:link_title(Link),
  -	       case lists:keyfind(Title,1,Counts) of
  -		 {_,N} -> lists:keyreplace(Title,1,Counts,{Title,N+1});
  -		 false -> lists:keystore(Title,1,Counts,{Title,1})
  -	       end
  -	   end, [], jsl_dynamic_links:links(State#state.dynamic_links));
  -      %%io:format("Distribution: ~p~n",[Distribution]);
  -     %% io:format
  -      %%("after call~n~s~nsize of result=~p flat_size=~p"++
  -	%%   " size of state=~p flat state=~p~n",
  -	 %%format_http_call(Call),
  -	 %%erts_debug:size(Result),
  -	 %%erts_debug:flat_size(Result),
  -	 %%erts_debug:size(State),
  -	 %%erts_debug:flat_size(State)]),
  -      %%case (erts_debug:flat_size(State)/erts_debug:size(State))>10 of
  -	%%true ->
  -	  %%io:format("*** flat_size is BIG:~n~p~n",[State]);
  -	%%false ->
  -	 %% ok
  -      %%end;
  -    _ ->
  -      ok
  -  end,
  -  try
  -    case Call of
  -      {_, _, follow_link, _, _} ->
  -	make_call(postcondition,fun postcondition_int/3,[State,Call,Result]);
  -      _ ->
  -	postcondition_int(State,Call,Result)
  -    end
  +gen_call(Link) ->
  +  ?LET(Parms,
  +       gen_http_request(Link),
  +       [Link,Parms]).
  +
  +link_post(State,Args,Result) ->
  +  try make_call(postcondition,fun postcondition_int/3,[State,Args,Result])
     catch Class:Reason ->
         io:format
   	("Warning: postcondition/3 raises exception ~p~n",
  
positive.code: call_link_title(Call) ->
    jsg_links:link_title(call_link(Call)).
  
  call_link(Call) ->
    case Call of
      {call, ?MODULE, follow_link, [Link,_], _} ->
        Link
    end.
  
  json_call_body(Call) ->
    case Call of
      {call, ?MODULE, follow_link, [_,{_,_,BodyArg,_}], _} ->
        case BodyArg of
  	{ok,Body} -> Body
        end
    end.
  
  get_json_body(Result) ->
  
negative.code:      dynamic_links=jsl_dynamic_links:initialize(20),
       private_state=PrivateState}.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  start_pre(State) ->
    not(State#state.initialized).
  
  start_args(_State) ->
    [].
  
  start() ->
    %%jsg_store:open_clean_db(),
    jsg_utils:clear_schema_cache(),
    true = ets:match_delete(jsg_store,{{object,'_'},'_'}),
  