diff --git a/extra/parser-combinators/parser-combinators.factor b/extra/parser-combinators/parser-combinators.factor
index 5741c801f7..199f0cb136 100755
--- a/extra/parser-combinators/parser-combinators.factor
+++ b/extra/parser-combinators/parser-combinators.factor
@@ -190,6 +190,10 @@ M: some-parser (parse) ( input parser -- result )
   #! Same as <&> except flatten the result.
   <&> [ dup second swap first [ , % ] { } make ] <@ ;
 
+: <:&:> ( parser1 parser2 -- result )
+  #! Same as <&> except flatten the result.
+  <&> [ dup second swap first [ % % ] { } make ] <@ ;
+
 LAZY: <*> ( parser -- parser )
   dup <*> <&:> { } succeed <|> ;
 
@@ -263,4 +267,4 @@ LAZY: <(+)> ( parser -- parser )
   nonempty-list-of { } succeed <|> ;
 
 LAZY: surrounded-by ( parser start end -- parser' )
-  [ token ] 2apply swapd pack ;
\ No newline at end of file
+  [ token ] 2apply swapd pack ;