diff --git a/README.md b/README.md
index 1c0d3da..63b9ad3 100644
--- a/README.md
+++ b/README.md
@@ -378,8 +378,44 @@ Note: I have not tried these libraries myself.
 
 ## Change log
 
+#### 2022-11-15 v0.2.62 [diff](https://github.com/ivarref/yoltq/compare/v0.2.61...v0.2.62)
+Added function `processing-time-stats`:
+
+```clojure
+(ns com.github.ivarref.yoltq)
+
+(defn processing-time-stats
+  "Gather processing time statistics.
+
+  Optional keyword arguments:
+  * :age-days —  last number of days to look at data from. Defaults to 30.
+                 Use nil to have no limit.
+
+  * :queue-name — only gather statistics for this queue name. Defaults to nil, meaning all queues.
+
+  * :duration->long - Specify what unit should be used for values.
+                      Must take a java.time.Duration as input and return a long.
+
+                      Defaults to (fn [duration] (.toSeconds duration).
+                      I.e. the default unit is seconds.
+
+  Example return value:
+  {:queue-a {:avg 1
+             :max 10
+             :min 0
+             :p50 ...
+             :p90 ...
+             :p95 ...
+             :p99 ...}}"
+ [{:keys [age-days queue-name now db duration->long]
+  :or   {age-days 30
+         now      (ZonedDateTime/now ZoneOffset/UTC)
+         duration->long (fn [duration] (.toSeconds duration))}}]
+  ...)
+```
+
 #### 2022-09-07 v0.2.61 [diff](https://github.com/ivarref/yoltq/compare/v0.2.60...v0.2.61)
-Added function option `retry-stats`:
+Added function `retry-stats`:
 
 ```clojure
 (ns com.github.ivarref.yoltq)
diff --git a/pom.xml b/pom.xml
index 775df3d..2c11984 100644
--- a/pom.xml
+++ b/pom.xml
@@ -4,7 +4,7 @@
   <packaging>jar</packaging>
   <groupId>com.github.ivarref</groupId>
   <artifactId>yoltq</artifactId>
-  <version>0.2.61</version>
+  <version>0.2.62</version>
   <name>yoltq</name>
   <dependencies>
     <dependency>
@@ -30,7 +30,7 @@
   <scm>
     <connection>scm:git:git://github.com/ivarref/yoltq.git</connection>
     <developerConnection>scm:git:ssh://git@github.com/ivarref/yoltq.git</developerConnection>
-    <tag>v0.2.61</tag>
+    <tag>v0.2.62</tag>
     <url>https://github.com/ivarref/yoltq</url>
   </scm>
 </project>
\ No newline at end of file
diff --git a/release.sh b/release.sh
index d27d125..3d06135 100755
--- a/release.sh
+++ b/release.sh
@@ -1,5 +1,10 @@
 #!/bin/bash
 
+if [[ $# -ne 1 ]]; then
+    echo "Illegal number of parameters" >&2
+    exit 2
+fi
+
 set -ex
 
 git update-index --refresh
@@ -23,11 +28,9 @@ sed -i "s/HEAD/v$VERSION/g" ./README.md
 git add pom.xml README.md
 git commit -m "Release $VERSION"
 git reset --soft HEAD~2
-git commit -m"Release $VERSION
-$MSG"
+git commit -m"Release $VERSION: $1"
 
-git tag -a v"$VERSION" -m "Release v$VERSION
-$MSG"
+git tag -a v"$VERSION" -m "Release v$VERSION: $1"
 git push --follow-tags --force
 
 clojure -X:deploy
diff --git a/src/com/github/ivarref/yoltq.clj b/src/com/github/ivarref/yoltq.clj
index 4eba4e9..9ffb3ad 100644
--- a/src/com/github/ivarref/yoltq.clj
+++ b/src/com/github/ivarref/yoltq.clj
@@ -263,11 +263,11 @@
   is much more unstable than the one representing :queue-a. This again implies
   that you will probably want to fix the downstream service of :queue-b, if that is possible.
   "
-  [{:keys [age-days queue-name now]
+  [{:keys [age-days queue-name now db]
     :or   {age-days 30
            now      (ZonedDateTime/now ZoneOffset/UTC)}}]
   (let [{:keys [conn]} @*config*
-        db (d/db conn)]
+        db (or db (d/db conn))]
     (->> (d/query {:query {:find  '[?qname ?status ?tries ?init-time]
                            :in    (into '[$] (when queue-name '[?qname]))
                            :where '[[?e :com.github.ivarref.yoltq/queue-name ?qname]
@@ -294,6 +294,66 @@
                                                   {:retry-percentage (double (* 100 (/ retries ok)))}))))}))
          (into (sorted-map)))))
 
+(defn- percentile [n values]
+  (let [idx (int (Math/floor (* (count values) (/ n 100))))]
+    (nth values idx)))
+
+(defn processing-time-stats
+  "Gather processing time statistics. Default unit is seconds.
+
+  Optional keyword arguments:
+  * :age-days —  last number of days to look at data from. Defaults to 30.
+                 Use nil to have no limit.
+
+  * :queue-name — only gather statistics for this queue name. Defaults to nil, meaning all queues.
+
+  * :duration->long - Specify what unit should be used for values.
+                      Must take a java.time.Duration as input and return a long.
+
+                      Defaults to (fn [duration] (.toSeconds duration).
+                      I.e. the default unit is seconds.
+
+  Example return value:
+  {:queue-a {:avg 1
+             :max 10
+             :min 0
+             :p50 ...
+             :p90 ...
+             :p95 ...
+             :p99 ...}}"
+  [{:keys [age-days queue-name now db duration->long]
+    :or   {age-days 30
+           now      (ZonedDateTime/now ZoneOffset/UTC)
+           duration->long (fn [duration] (.toSeconds duration))}}]
+  (let [{:keys [conn]} @*config*
+        db (or db (d/db conn))
+        ->zdt #(.atZone (Instant/ofEpochMilli %) ZoneOffset/UTC)]
+    (->> (d/query {:query {:find  '[?qname ?status ?init-time ?done-time]
+                           :in    (into '[$ ?status] (when queue-name '[?qname]))
+                           :where '[[?e :com.github.ivarref.yoltq/queue-name ?qname]
+                                    [?e :com.github.ivarref.yoltq/status ?status]
+                                    [?e :com.github.ivarref.yoltq/init-time ?init-time]
+                                    [?e :com.github.ivarref.yoltq/done-time ?done-time]]}
+                   :args  (vec (remove nil? [db u/status-done queue-name]))})
+         (mapv (partial zipmap [:qname :status :init-time :done-time]))
+         (mapv #(update % :init-time ->zdt))
+         (mapv #(update % :done-time ->zdt))
+         (mapv #(assoc % :age-days (.toDays (Duration/between (:init-time %) now))))
+         (mapv #(assoc % :spent-time (duration->long (Duration/between (:init-time %) (:done-time %)))))
+         (filter #(or (nil? age-days) (<= (:age-days %) age-days)))
+         (group-by :qname)
+         (mapv (fn [[q values]]
+                 (let [values (vec (sort (mapv :spent-time values)))]
+                   {q (sorted-map
+                        :max (apply max values)
+                        :avg (int (Math/floor (/ (reduce + 0 values) (count values))))
+                        :p50 (percentile 50 values)
+                        :p90 (percentile 90 values)
+                        :p95 (percentile 95 values)
+                        :p99 (percentile 99 values)
+                        :min (apply min values))})))
+         (into (sorted-map)))))
+
 (comment
   (do
     (require 'com.github.ivarref.yoltq.log-init)