diff --git a/library/maplist.yap b/library/maplist.yap
index a70f3e4c0..f0de33566 100644
--- a/library/maplist.yap
+++ b/library/maplist.yap
@@ -431,7 +431,7 @@ goal_expansion(exclude(Meta, ListIn, ListOut), Mod:Goal) :-
 	compile_aux([
 		     Base,
 		     (RecursionHead :-
-		         (Apply -> Outs = [In|NOuts]; Outs = NOuts),
+		         (Apply -> Outs = NOuts; Outs = [In|NOuts]),
 			 RecursiveCall)
 		    ], Mod).