diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test
index 2a203de..052d985 100644
--- a/test-suite/tests/ftw.test
+++ b/test-suite/tests/ftw.test
@@ -224,7 +224,7 @@
             (skip   (lambda (n s r) (cons `(skip ,n) r)))
             (error  (lambda (n s e r) (cons `(error ,n ,e) r)))
             (name   (string-append %top-builddir "/test-EACCES")))
-        (equal? (file-system-fold enter? leaf down up skip error '() name)
+        (equal? (pk (file-system-fold enter? leaf down up skip error '() name))
                 `((error ,name ,EACCES))))))
 
   (pass-if "dangling symlink and lstat"