 
 (defn- reschedule
   [conn task error]
-  (let [explain (string-strack-trace error)
+  (let [explain (ex-message error)
         sqlv [sql:mark-as-retry explain (:id task)]]
     (-> (db/query-one conn sqlv)
         (p/then' (constantly nil)))))

;; --- Schedule API

(s/def ::name ::us/string)
(s/def ::delay ::us/integer)
(s/def ::queue ::us/string)
(s/def ::task-options
  (s/keys :req-un [::name]

          (p/then decode-task-row)
          (p/then (fn [item]
                    (when item
                      (log/info "Execute task" (:name item)
                                "with props" (pr-str (:props item)))
                      (-> (p/do! (handle-task tasks item))
                          (p/handle (fn [v e]
                                      (if e
