anchor.diff:  effectful_setHandle(This, Handle) ->
       {ok, oop:set(This, handle, Handle)}.
   
  -effectful_open(This) -> 
  +effectful_open(This) ->
       Host = oop:get(This, host),
       Port = oop:get(This, port),
  -    Options = [],
  +    Options = [binary, {packet, 0}, {active, false}],
   
       case gen_tcp:connect(Host, Port, Options) of
  -	{error, _} ->
  -	    exit(tTransportException:new(
  -		   ?tTransportException_NOT_OPEN,
  -		   "Could not connect to " ++ Host ++ ":" ++ Port)
  -		 );
  -	{ok, Socket} ->
  -	    {ok, oop:set(This, handle, Socket)}
  +        {error, _} ->
  +            exit(tTransportException:new(
  +                   ?tTransportException_NOT_OPEN,
  +                   "Could not connect to " ++ Host ++ ":" ++ Port)
  +                );
  +        {ok, Socket} ->
  +            effectful_setHandle(This, Socket)
       end.
   
   isOpen(This) ->
  
positive.code: 
  -include("thrift.hrl").
  -include("transport/tTransportException.hrl").
  % -include("transport/tTransport.hrl").
  -include("transport/tSocket.hrl").
  
  -behavior(oop).
  
negative.code: 
  new() ->
      new("localhost", 9090).
  
  %%%
  %%% instance methods
  %%%
  