 
 (defmethod stream "hot" [a-stream params]
   (let [ch (chan 1)
-        stream-name (get params "stream-name" "__all__")]
+        stream-name (get params "stream-name"
+                         (get params :stream-name "__all__"))]
     (if (= stream-name "__all__")
       (tap (:mult-channel (global-channel a-stream)) ch)
       (sub (:p (publisher a-stream)) stream-name ch))

       {:m m} (str "stream/" stream-name)
       (fn [params]
         (stream this
                 (assoc params
                        "stream-name" stream-name))))))
  (streams [this]
    {:streams
     (let [active-streams (get @active-streams this)]

  (log/info "cold-stream" (pr-str params))
  (let [ch (chan (buffer 1))
        full-s (data-from a-stream 
                          (get params "stream-name"
                               (get params :stream-name "__all__"))
                          (extract-date params))
        full-s (if (and (contains? params :limit)
                        (not (nil? (:limit params))))
