                                  V v)))
                       (fn[V fqrec]
                         (let [[id sq aux qc] (sqxform-fn fqrec)
-                              bc (get-sq-bc sq barcodes-map other-barcodes)]
+                              bc (get-sq-bc sq bclen
+                                            barcodes-map
+                                            other-barcodes)]
                           (if bc
                             (if (pass-qcscore qc qc-ctpt sqc%)
                               (let [len (count sq)

        (split-barcodes (sample-ifq-xref samp)
                        sqxform-fn
                        (bc-file-specs ibc)
                        barcodes-map
                        (red1codes sid)
                        qc-ctpt sqc%)))
    :success))


(defn split-barcodes
  [in-fq sqxform-fn ot-fq-map barcodes-map other-barcodes qc-ctpt sqc%]

  (letio [bclen (->> ot-fq-map keys first count long)
          inf (io/open-streaming-gzip in-fq :in)
          lines (io/read-lines inf)
