anchor.diff:  	authorize_rpc:authorize_local_message(
   	  St#st.cs, SvcName, [{service_name, SvcName},
   			      {timeout, TimeoutArg},
  -			      {parameters, Parameters}]),
  +			      %% {parameters, Parameters},
  +			      {parameters,  {struct, Parameters}}
  +			      ]),
   
       %%
       %% Slick but ugly.
  
positive.code:     ok;
  
  dispatch_to_local_service([ $w, $s, $: | WSPidStr], message, 
  			 {struct, [{ service_name, SvcName}, { parameters, [ { struct, Args} ]}]} ) ->
      ?info("service_edge:dispatch_to_local_service(message, websock): ~p", [Args]),
      wse_server:send(list_to_pid(WSPidStr), 
  	     json_rpc_notification("message",
  				   [{ "service_name", SvcName}, {parameters, { struct, Args}}])),
      %% No response expected.
      ?debug("service_edge:dispatch_to_local_service(message, websock): Done"),
      ok;
  
  dispatch_to_local_service([ $w, $s, $: | WSPidStr], message, 
  			 {struct, [{ service_name, SvcName}, { parameters,{array,[{struct, Args}]}}]}) ->
      ?info("service_edge:dispatch_to_local_service(message/alt, websock): ~p", [Args]),
      wse_server:send(list_to_pid(WSPidStr), 
  	     json_rpc_notification("message",
  				   [{ "service_name", SvcName}, {parameters, { struct, Args}}])),
      %% No response expected.
      ?debug("service_edge:dispatch_to_local_service(message, websock): Done"),
      ok;
  
negative.code: 		    dispatch_to_local_service(URL, 
  					      message, 
  					      {struct, [ { service_name, LocalSvcName },
  							 { parameters,  { struct, Parameters }}]}))
  	  end),
      [ ok, -1 ].
      
  