   [resolve-fn property-ranges [a b]]
   (let [distance-fn (partial compute-distance' resolve-fn property-ranges)
         dispatch-fn (partial dispatch-distance distance-fn)]
-    (average (pmap dispatch-fn a b))))
+    (average (map dispatch-fn a b))))
 
 (def distance-function
   (reify DistanceFunction

  [{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'

          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 + (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,
