       (.deleteOnExit f)
       (send-okay ctx)
       (with-open [fos (FileOutputStream. f)]
-        (let [bytes (copy-limit (.in ctx) fos
-                                size)]
+        (let [bytes (copy-limit (.in ctx) fos size)]
           (if (>= bytes size)
             {:name (.getName fn), :file f, :size size, :suffix suffix
              :mode mode}

                    FileOutputStream)
           com.martiansoftware.nailgun.NGContext)
  (:use [clojars.config :only [config]])
  (:require [clojars.maven   :as maven]
            [clojars.db      :as db])
  (:gen-class
   :methods [#^{:static true}
             [nailMain [com.martiansoftware.nailgun.NGContext] void]]))

         (let [cmd (.read in)]
           (if (= -1 cmd)
             (finish-deploy ctx files)
             (let [cmd (char cmd)]
               ;; TODO: use core.match
               (condp = cmd
                   (char 0)      (recur files false)
                   \C            (recur (conj files (scp-copy ctx)) true)
                   \D            (do (safe-read-line in) (recur files true))
                   \T            (do (safe-read-line in) (recur files true))
