anchor.diff:      {noreply,State};
   handle_cast(scenarios,#?STATE{ socket = Socket, version = Version } = State) ->
       inet:setopts(Socket, [{active, once}]),
  -    %% io:format("... [~p] About to handle scenario's ...\n",[?MODULE]),
  -    Scenarios = [hello,echo_request,role_request],
  +    %% io:format("... [~p] About to handle scenario's ...\n",[?MODULE])
       F=fun(Scenario) -> 
                 io:format("... [~p] Scenario ~p ...\n",[?MODULE,Scenario]),
  -              timer:sleep(200),
  +              timer:sleep(400),
                 ok = do_send(Socket,?MODULE:Scenario(Version))
         end,
  -    lists:foreach(F,Scenarios),
  +    lists:foreach(F,[hello,
  +                     echo_request,
  +                     features_request,
  +                     role_request,
  +                     get_config_request,
  +                     barrier_request,
  +                     queue_get_config_request,
  +                     desc_request,
  +                     flow_stats_request,
  +                     aggregate_stats_request,
  +                     table_stats_request,
  +                     port_stats_request,
  +                     queue_stats_request,
  +                     group_stats_request,
  +                     group_desc_request,
  +                     group_features_request,
  +                     remove_all_flows,
  +                     set_config,
  +                     group_mod,
  +                     port_mod,
  +                     delete_all_groups,
  +                     port_desc_request,
  +                     flow_mod_table_miss,
  +                     flow_mod_delete_all_flows,
  +                     set_async,
  +                     get_async_request,
  +                     table_features_keep_table_0
  +                    ]),
       {noreply,State};
   handle_cast(Msg, #?STATE{ socket = Socket } = State) ->
       inet:setopts(Socket, [{active, once}]),
  
positive.code:         true ->
              io:format("... [~p] Compatible, now send a compatible hello...\n",[?MODULE]),
              ok = do_send_hello(SwitchVersion,normal,Socket), %% Now that we are compatible, maybe send a hello to the switch , to reasure the compatibility...
              {noreply,State#?STATE{ version = SwitchVersion,
                                     parser = NewParser
                                   }};
  
negative.code:     end;
  handle_info({tcp, Socket, Data},#?STATE{ parser = Parser, version = Version } = State) ->
      inet:setopts(Socket, [{active, once}]),
      %% io:format("... [~p] handle tcp data...\n", [?MODULE]),
      {ok, NewParser, Messages} = ofp_parser:parse(Parser, Data),
      %% io:format("... [~p] Messages : ~p\n\n",[?MODULE,Messages]),
      
      [ io:format("... [~p] MSG: ~p ...\n",[?MODULE,MSG]) || MSG <- Messages ],
      
      {noreply,State#?STATE{ parser = NewParser }};
  
  handle_info({tcp_closed, Socket},State) ->
      inet:setopts(Socket, [{active, once}]),
  