Fix exception predicatestrunk

2 files changed, 4 insertions, 4 deletions

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 9d0cc63..9daab63 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -827,7 +827,7 @@
   (record-constructor &build-coordinator-datastore-excessive-write-delays))
 
 (define build-coordinator-datastore-excessive-write-delays-error?
-  (record-predicate &build-coordinator-datastore-excessive-write-delays))
+  (exception-predicate &build-coordinator-datastore-excessive-write-delays))
 
 (define (build-coordinator-check-for-datastore-excessive-write-delays
          build-coordinator)
diff --git a/guix-build-coordinator/utils/timeout.scm b/guix-build-coordinator/utils/timeout.scm
index bb133d7..0c3fb0e 100644
--- a/guix-build-coordinator/utils/timeout.scm
+++ b/guix-build-coordinator/utils/timeout.scm
@@ -21,7 +21,7 @@
   (record-constructor &port-timeout))
 
 (define port-timeout-error?
-  (record-predicate &port-timeout))
+  (exception-predicate &port-timeout))
 
 (define &port-read-timeout
   (make-exception-type '&port-read-timeout
@@ -32,7 +32,7 @@
   (record-constructor &port-read-timeout))
 
 (define port-read-timeout-error?
-  (record-predicate &port-read-timeout))
+  (exception-predicate &port-read-timeout))
 
 (define &port-write-timeout
   (make-exception-type '&port-write-timeout
@@ -43,7 +43,7 @@
   (record-constructor &port-write-timeout))
 
 (define port-write-timeout-error?
-  (record-predicate &port-write-timeout))
+  (exception-predicate &port-write-timeout))
 
 (define* (with-port-timeouts thunk #:key timeout)