           dispatch-fn (comp (partial - 1) (partial dispatch-distance distance-fn))]
       (if-let [[a' b'] (map-overlaps a-desc b-desc)]
         (let [union-size (- (+ (count a-desc) (count b-desc)) (count a'))
-              intersection-size (reduce + (pmap dispatch-fn a' b'))]
+              intersection-size (reduce + (map dispatch-fn a' b'))]
           (/ (- union-size intersection-size)
              union-size))
         ; If descriptions of the compared referents are not found or their overlap is empty,

  [{literal "@value"}]
  literal)

(defn normalized-numeric-distance
  "Computes distance between `a` and `b` normalized by `maximum`."
  [maximum a b]
  (if (= a b)
    0
    (double (/ (Math/abs (- a b))
               (or maximum 10000)))))

(defn normalized-numeric-distance'

  [resolve-fn property-ranges [a b]]
  (let [distance-fn (partial compute-distance' resolve-fn property-ranges)
        dispatch-fn (partial dispatch-distance distance-fn)]
    (average (map dispatch-fn a b))))

(def distance-function
  (reify DistanceFunction
