anchor.diff:      end,
     io:format
       ("~saccess ~s~s~n~n",
  -     [TitleString,format_http_call(Call),ResultString]),
  -  print_commands(Rest).
  +     [TitleString,format_http_call(Args),ResultString]),
  +  print_commands(Rest);
  +print_commands([{Call,_Result}|_Rest]) ->
  +  io:format("seeing Call ~p~n",[Call]),
  +  throw(bad).
     
   test() ->
     Validator = get_option(validator),
  
positive.code:   ReturnValues = 
      case Reason of
        {exception,_} ->
  	(lists:map(fun ({_,_,Result}) -> Result end, H))++[Reason];
        _ ->
  	(lists:map(fun ({_,_,Result}) -> Result end, H))
      end,
    io:format("~nCommand sequence:~n"),
    io:format("---------------~n~n"),
  
negative.code: call_link_title(Call) ->
    jsg_links:link_title(call_link(Call)).
  
  call_link({call,_,_,[Link,_],_}) ->
    Link.
  
  args_link_title(Call) ->
    jsg_links:link_title(args_link(Call)).
  
  args_link([Link,_]) ->
    Link.
  
  json_call_body([_,{_,_,BodyArg,_}]) ->
  