diff --git a/extra/parser-combinators/parser-combinators.factor b/extra/parser-combinators/parser-combinators.factor
index 3e34333a41..6301f778f5 100755
--- a/extra/parser-combinators/parser-combinators.factor
+++ b/extra/parser-combinators/parser-combinators.factor
@@ -13,11 +13,11 @@ M: promise (parse) ( input parser -- list )
 : parse ( input parser -- promise )
   (parse) ;
 
+TUPLE: parse-result parsed unparsed ;
+
 : parse-1 ( input parser -- result )
   parse car parse-result-parsed ;
 
-TUPLE: parse-result parsed unparsed ;
-
 C: <parse-result> parse-result
 
 TUPLE: token-parser string ;