 	         e (long (/ partition-count (count members)))
 	         l (rem partition-count (count members))]
 	     
-	     ;(prn "members " members " partition-count " partition-count " locked-partition-count " locked-partition-count " e " e " l " l )
+	     (info "members " members " partition-count " partition-count " locked-partition-count " locked-partition-count " e " e " l " l )
 	     [(if (> e locked-partition-count) (count (get-add-partitions broker-partitions e)) 0)
 	      (if (> locked-partition-count e) (count (get-remove-partitions broker-partitions (- locked-partition-count e))) 0)
 	      l

                                 (cond 
                                   (and locked (> remove-i 0))
                                   (do 
                                     (if-let [host (get conf :host-name nil)] (release group-conn host (str topic "/" partition))
                                           (release group-conn (str topic "/" partition)))
                                     (recur (change-partition-lock group-conn broker-offsets1 broker topic partition false conf)
                                            locked-i (dec remove-i) l-i (rest partitions)))
                                    (and (not locked) (or (> locked-i 0) (> l-i 0))
                                         (if-let [host (get conf :host-name nil)]  (reentrant-lock group-conn host (str topic "/" partition))
	                                                                       (reentrant-lock group-conn (str topic "/" partition)))) 
                                    ;here we know that we have a lock
		                                (recur (change-partition-lock group-conn
			                                                                 broker-offsets1 
												                                               broker topic partition 
												                                               true
			                                                                 conf)
		                                           (dec locked-i) remove-i (if (> locked-i 0) l-i (dec l-i)) (rest partitions))
                                       
                                    :else
                                    (recur broker-offsets1 locked-i remove-i l-i (rest partitions))))

 (defn get-partitions-to-lock [topic broker-offsets members]
   "broker-offsets {broker {topic [{:partition :offset :topic}]}}
    Returns the number of partitions that should be locked"
   ;;TODO the problem is that the partitions that were marked as locked are not locked in broker-offsets, i.e. the locked
   ;;attribute is not kept in the map
   (try
	   (let [broker-partitions (filter #(= (:topic %) topic) (flatten-broker-partitions broker-offsets))
	         partition-count (count broker-partitions)
