            buf (byte-array arr-size)]
        (if (pos? (.read stream buf))
          (lazy-seq
-          (cons buf (lazy-months stream)))))))
+          (cons buf (lazy-months stream)))
+         (.close stream)))))
 
 (defn all-months
   "Returns a lazy seq of all months inside of a yearly rain array."

;; file, with lots of Java support. Might be worthwhile to code that
;; up as a separate input, just in case. (Support for OpenCDF files
;; would sure be nice.)

(ns forma.rain
  (:use cascalog.api

                 (take-nth 2 (lazy-months stream))))

;; ## Cascalog Queries

(defmapcatop
  #^{:doc "Unpacks a yearly PREC/L binary file, and returns its
