--- ldap.tcl.bak	2017-03-21 11:01:54.716595089 +0100
+++ ldap.tcl	2017-03-21 11:02:25.956334530 +0100
@@ -738,7 +738,10 @@
                     set conn(pdu,partial) 1
                     append conn(pdu,received) $type
                 }
-                }
+	    }
+	    partial {
+		return
+	    }
             eof {
                 CleanupWaitingMessages $handle
                 set conn(lastError) "Server closed connection"
