diff --git a/knots.scm b/knots.scm
index 5d152a8..8e31c6b 100644
--- a/knots.scm
+++ b/knots.scm
@@ -57,7 +57,7 @@
   (record-constructor &knots-exception))
 
 (define knots-exception?
-  (record-predicate &knots-exception))
+  (exception-predicate &knots-exception))
 
 (define knots-exception-stack
   (exception-accessor