 
 (defn- give-up-and-cancel [req & [msg]]
   (when msg (debug msg))
-  (some-> req :is terminate)
-  (some-> req :rs cancel))
+  (concat  (some-> req :is terminate)
+           (some-> req :rs cancel)))
 
 (defn request-spots [req]
   (let [args    (apply concat (seq req))

                  (:hosts req))]
    (patience
     (fn [] (let [sbad (filter #(not (ssh/connected? %)) sess)]
               (doseq [s sbad] (ssh/connect s))
               (assoc req :sessions sess)))
     #(every? ssh/connected? (:sessions %1))
     #(give-up-and-cancel req "Failed to add sesions")
     60 10
     )))


                                          (>! out v))
         :else                        (do (debug "Still" v "Waiting" time-wait)
                                          (<! (timeout (* 1000 time-wait)))
                                          (debug "Woke up after wait...")
                                          (recur)))))
    out))

