     (is (revisions-exist? serv3 (range 3 13)))
 
     (is (revisions-exist? serv4 (range 1 5)))
-    (is (revisions-exist? serv5 (range 1 4)))))
+    (is (revisions-exist? serv5 (range 1 4))))
+ (side/eval-form `(tk/clear-current-time!)))
 
 (deftest old-tombstones-are-cleaned-up
   (side/eval-form `(tk/set-time-override! (tk/now)))

  (side/eval-form `(tk/clear-current-time!)))

(deftest old-tag-revisions-are-cleaned-up
  (let [tag1 (util/create-and-save-tag 1 13)
        tag2 (util/create-and-save-tag 2 3)
        tags [tag1 tag2]]

    (is (revisions-removed? ta1 (range 1 4)))
    (is (revisions-exist? ta1 (range 4 13)))

    (is (all-revisions-exist? ta2)))
 (side/eval-form `(tk/clear-current-time!)))
