diff --git a/NetSNMP.cabal b/NetSNMP.cabal
--- a/NetSNMP.cabal
+++ b/NetSNMP.cabal
@@ -1,6 +1,6 @@
 
 Name:               NetSNMP
-Version:            0.3.0.1
+Version:            0.3.0.2
 Synopsis:           Bindings for net-snmp's C API for clients
 Description:        Network.Protocol.NetSNMP is a partial binding to the
                     library portion of the net-snmp package.  It uses the
diff --git a/src/Network/Protocol/NetSNMP.hsc b/src/Network/Protocol/NetSNMP.hsc
--- a/src/Network/Protocol/NetSNMP.hsc
+++ b/src/Network/Protocol/NetSNMP.hsc
@@ -4,12 +4,10 @@
 ----------------------------------------------------------------------
 -- |
 -- Module      : Network.Protocol.NetSNMP
--- Copyright   : 2009 John Dorsey
--- 
--- Maintainer  : John Dorsey <haskell@colquitt.org>
+--
+-- Maintainer  : Pavlo Kerestey <pavlo@kerestey.net>
 -- Portability : portable
--- Stability   : provisional
--- 
+--
 -- This is a binding to Net-SNMP version 5, <http://www.net-snmp.org/>.
 
 {- License: BSD3.  See included LICENSE and README files. -}
@@ -258,6 +256,8 @@
 readyCommunitySession version hostname community session = do
   community_len     <- t_strlen community
   t_snmp_sess_init  session
+  pokeSessRetries   session 3
+  pokeSessTimeout   session 10000000
   pokeSessPeername  session hostname
   pokeSessVersion   session (unSnmpVersion version)
   pokeSessCommunity session community
@@ -626,16 +626,22 @@
 peekVariableValLen :: Ptr CVarList -> Trouble CSize
 peekVariableValLen rv = hoistT $ #{peek struct variable_list, val_len} rv
 
-pokeSessPeername  :: Ptr SnmpSession -> CString -> Trouble ()
+pokeSessRetries :: Ptr SnmpSession -> CInt -> Trouble ()
+pokeSessRetries s h  = hoistT $ #{poke struct snmp_session , retries} s h
+
+pokeSessTimeout :: Ptr SnmpSession -> CLong -> Trouble ()
+pokeSessTimeout s h  = hoistT $ #{poke struct snmp_session , timeout} s h
+
+pokeSessPeername :: Ptr SnmpSession -> CString -> Trouble ()
 pokeSessPeername s h  = hoistT $ #{poke struct snmp_session , peername} s h
 
-pokeSessVersion   :: Ptr SnmpSession -> CLong   -> Trouble ()
+pokeSessVersion :: Ptr SnmpSession -> CLong   -> Trouble ()
 pokeSessVersion s v   = hoistT $ #{poke struct snmp_session , version} s v
 
 pokeSessCommunity :: Ptr SnmpSession -> CString -> Trouble ()
 pokeSessCommunity s c = hoistT $ #{poke struct snmp_session , community} s c
 
-pokeSessCommLen   :: Ptr SnmpSession -> CSize   -> Trouble ()
+pokeSessCommLen :: Ptr SnmpSession -> CSize   -> Trouble ()
 pokeSessCommLen s l = hoistT $ #{poke struct snmp_session , community_len} s l
 
 pokePDUVersion :: Ptr SnmpPDU -> CLong -> Trouble ()