diff --git a/doc/ansi_data_flow.xml b/doc/ansi_data_flow.xml
index 2debf7d94..8419160c8 100644
--- a/doc/ansi_data_flow.xml
+++ b/doc/ansi_data_flow.xml
@@ -138,7 +138,7 @@ printf("\nThe cosine of PI is %g\n", ecl_double_float(c));
    <programlisting>
 cl_object one = ecl_make_fixnum(1);
 cl_object two = cl_P(2, one, one);
-cl_object three = cl_P(2, one, one, one);
+cl_object three = cl_P(3, one, one, one);
 printf("\n1 + 1 is %d\n", ecl_fixnum(two));
 printf("\n1 + 1 + 1 is %d\n", ecl_fixnum(three));
 </programlisting>
@@ -160,4 +160,4 @@ printf("\n1 + 1 + 1 is %d\n", ecl_fixnum(three));
  <xi:include href="ref_c_data_flow.xml" xpointer="ansi.data-and-control.c-dict" xmlns:xi="http://www.w3.org/2001/XInclude"/>
 
 </chapter>
-</book>
\ No newline at end of file
+</book>