diff --git a/Examples/ocaml/check.list b/Examples/ocaml/check.list
index 47c82ad3a..0baabf8e9 100644
--- a/Examples/ocaml/check.list
+++ b/Examples/ocaml/check.list
@@ -4,3 +4,4 @@ std_string
 std_vector
 stl
 argout_ref
+shapes
diff --git a/Examples/ocaml/shapes/example.c b/Examples/ocaml/shapes/example.c
index 7615f5317..ef6e86799 100644
--- a/Examples/ocaml/shapes/example.c
+++ b/Examples/ocaml/shapes/example.c
@@ -13,7 +13,7 @@ void draw_shape_coverage( shape *s, int div_x, int div_y ) {
 
     for( i = 0; i < 1.0; i += 1.0 / ((float)div_y) ) {
 	for( j = 0; j < 1.0; j += 1.0 / ((float)div_x) ) {
-	    if( s->cover( i,j ) ) putchar( 'x' ); else putchar( ' ' );
+	    if( s->cover( j,i ) ) putchar( 'x' ); else putchar( ' ' );
 	}
 	printf( "\n" );
     }