diff --git a/packages/cuda/cuda.yap b/packages/cuda/cuda.yap
index 4649fc5d7..aed185db7 100644
--- a/packages/cuda/cuda.yap
+++ b/packages/cuda/cuda.yap
@@ -47,9 +47,9 @@ body_to_list( (B1, B2), LF, L0, N0, NF) :- !,
 	body_to_list( B1, LF, LI, N0, N1), 
 	body_to_list( B2, LI, L0, N1, NF). 
 body_to_list( true, L, L, N, N) :- !.
-body_to_list( B, [NB|L], L, N0, N) :-
+body_to_list( B, NL, L, N0, N) :-
 	inline( B, NB ), !,
-	N is N0+1.
+	body_to_list( NB, NL, L, N0, N)
 body_to_list( B, [B|L], L, N0, N) :-
 	N is N0+1.