diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 9f9c84dfe0..b8b148729a 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -31,9 +31,7 @@ T{ error-type-holder
 SYMBOL: verbose-tests?
 t verbose-tests? set-global
 
-<PRIVATE
-
-: <test-failure> ( error experiment file line# -- triple )
+: <test-failure> ( error experiment file line# -- test-failure )
     test-failure new
         swap >>line#
         swap >>path
@@ -41,6 +39,8 @@ t verbose-tests? set-global
         swap >>error
         error-continuation get >>continuation ;
 
+<PRIVATE
+
 : failure ( error experiment file line# -- )
     "--> test failed!" print
     <test-failure> test-failures get push