anchor.diff:        ?LOG(error, "There was an error accepting the socket ~p: ~p",
              [LSock, Error]),
         %The msg above add no additional helpful info     
  -      error_msg(currentfunc(), {socket_accept_error, [LSock, Error]}),      
  +      error_msg(currentfunc(), {socket_accept_error, [LSock, Error]}, get_stacktrace()),      
         exit({socket_accept_error, Error})
     end.
   
  
positive.code: send_to(To, {Tag, Msg, From}, _Other)->
    send_to(To, {Tag, Msg, From}).
  
  info_msg(Fun, What)->
    bh_router_util:info_msg(?MODULE,Fun,What).  
    
  error_msg(Fun, Why)->
    bh_router_util:error_msg(?MODULE, Fun, Why).
  
  currentfunc()->
    bh_router_util:current_function().
  
  
   
  
negative.code: 		 [LPort, Error]),
  		 %TODO: what additional info does the above add?
      		 error_msg(currentfunc(), 
      		 	   io:format("Port: ~p Sock Options: ~p Error: ~p", [LPort, SockOpts, Error]),
      		 	   get_stacktrace()),
      	         %TODO: the server should just die and exit at this point 
      	         exit(socket_listen_error, Error)
      		 %{error, Error}
  