diff --git a/contrib/ldaptcl/neoXldap.c b/contrib/ldaptcl/neoXldap.c
index 1174e352af..c172992627 100644
--- a/contrib/ldaptcl/neoXldap.c
+++ b/contrib/ldaptcl/neoXldap.c
@@ -220,7 +220,6 @@ LDAP_ProcessOneSearchResult (interp, ldap, entry, destArrayNameObj, evalCodeObj)
 	    Tcl_DecrRefCount (attributeNameObj);
 	}
     }
-    ber_free(ber, 0);
     return Tcl_EvalObj (interp, evalCodeObj);
 }