diff --git a/scheme/last-revision b/scheme/last-revision
index bdc2aea..d75c403 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1717
+1718
diff --git a/scheme/tests/guardians.ss b/scheme/tests/guardians.ss
index 1a19b9e..e2d9f59 100644
--- a/scheme/tests/guardians.ss
+++ b/scheme/tests/guardians.ss
@@ -25,6 +25,7 @@
         (cond
           [(g) =>
            (lambda (p)
+             (printf " [~s/~s]" i n)
              (assert (eq? (cdr p) ls))
              (set! ls (cdr ls))
              (f (+ i 1)))]