X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tree.ml;h=c968f105d99ca77f2c1f6611babd2ace0786d186;hb=2f157824afcbbc0852e2ff32ccb3e4dc2100a3b0;hp=4cf40479d4919c580030d491f1bef444a9110ff5;hpb=7489c542a7b7357a1c2bbc436d1d77c601833d3b;p=SXSI%2Fxpathcomp.git

diff --git a/tree.ml b/tree.ml
index 4cf4047..c968f10 100644
--- a/tree.ml
+++ b/tree.ml
@@ -641,7 +641,7 @@ let text_next t root =
       | Nil -> ()    
       | Text(i,n) -> output_string outc (text_get_text t.doc i);
 	  if print_right
-	  then loop (left t)
+	  then loop (right t)
       | Node (n) -> 
 	  let tg = Tag.to_string (tag t) in
 	  let l = left t