 
   (let [subtask-var (resolve (symbol "leiningen.voom"
                                      (s/replace subtask-name #"^:" "")))]
-    (if-let [subtask (some #{subtask-var} (concat subtasks internal-subtasks))]
+    (if-let [subtask (some #{subtask-var} subtasks)]
       (if (:info-subtask (meta subtask))
         (prn (apply subtask args))
         (apply subtask project args))

    (apply box-init proj target args)))

(defn box-remove
  [proj & args]
  (doseq [a args
          :let [prjs (resolve-short-proj a (all-boxes))]]


(declare voom)
(defn box
  "Entry point for the box shell alias, not to be used manually."
  [proj & args]
  (let [[^String ver ^String pwd ^String ififo ^String ofifo & rargs] args
        _ (assert (= "1" ver)
                  "Box subtasks must be called using a box alias (version 1)")
        fpwd (File. pwd)
        fofifo (future (-> ofifo FileOutputStream. OutputStreamWriter.))
        fififo (future (-> ififo FileInputStream.))]
