diff --git a/piclib/picrin/test.scm b/piclib/picrin/test.scm
index 1e938e11..cb051a05 100644
--- a/piclib/picrin/test.scm
+++ b/piclib/picrin/test.scm
@@ -24,7 +24,7 @@
     (for-each
      (lambda (fail)
        (display fail))
-     fails))
+     (reverse fails)))
 
   (define (test-begin . o)
     (set! test-counter (+ test-counter 1)))