anchor.diff:      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]),
  +			 {struct, [{ service_name, SvcName}, 
  +				   { parameters, { struct, Parameters} }
  +				  ]} ) ->
  +
  +    ?info("service_edge:dispatch_to_local_service(message, websock): ~p", 
  +	  [Parameters]),
       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}}])),
  +				   [{ "service_name", SvcName}, 
  +				    {parameters, { struct, Parameters}}])),
       %% No response expected.
       ?debug("service_edge:dispatch_to_local_service(message, websock): Done"),
       ok;
  
positive.code: 		    {remote_port, Port},
  		    {service_name, SvcName},
  		    {timeout, Timeout},
  		    {parameters, Parameters},
  		    {signature, Signature}]) of
  		[ ok ] -> 
  
negative.code: 	authorize_rpc:authorize_local_message(
  	  St#st.cs, SvcName, [{service_name, SvcName},
  			      {timeout, TimeoutArg},
  			      %% {parameters, Parameters},
  			      {parameters,  {struct, Parameters}}
  			      ]),
  
      %%
      %% Slick but ugly.
  