               w-value (last point)
               ttl (calc-ttl time retention)]
           (when (> ttl min-ttl)
-            (log/trace
-             (format (str "Validating point: rollup: %s, period: %s, "
-                          "path: %s, time: %s, value: %s, ttl: %s")
-                     rollup period path time w-value ttl))
+            (log-point "Validating point" rollup period path time w-value ttl)
             (let [s-value (get mstore-series time)]
               (every? #(validate-value rollup period path time w-value s-value
                                        (first %) (second %) error-reported?)

  [time retention]
  (- time (- (utils/now) retention)))

(defn- migrate-points
  "Migrate points."
  [mstore options tenant rollup period retention path series]

            value (last point)
            ttl (calc-ttl time retention)]
        (when (> ttl min-ttl)
          (log-point "Migrating point" rollup period path time value ttl)
          (when (and run mstore)
            (mstore/insert mstore tenant rollup period path time value
                           ttl)))))))
