diff -u -r tcllib/modules/ldap/ldap.tcl tcllib.new/modules/ldap/ldap.tcl
--- tcllib/modules/ldap/ldap.tcl	Thu Aug  3 11:49:49 2006
+++ tcllib.new/modules/ldap/ldap.tcl	Thu Aug  3 15:29:38 2006
@@ -388,7 +388,7 @@
     debugData unbindRequest $request
     puts -nonewline $conn(sock) $request
     flush $conn(sock)
-    set bound 0
+    set conn(bound) 0
 }
 
 
