X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fast.ml;h=5b322a4af56a28c2d01c596756820aaa7ee4f128;hp=21ab5df0af71d2943c68a86a9af3937831a1a832;hb=fe2ba1820282783ae8c10fbbbd2b65d3dc4c67f2;hpb=fed343e8df1900043dc993ac5458c757d3ac2ee0

diff --git a/src/xpath/ast.ml b/src/xpath/ast.ml
index 21ab5df..5b322a4 100644
--- a/src/xpath/ast.ml
+++ b/src/xpath/ast.ml
@@ -128,7 +128,7 @@ and print_test fmt (ts,kind) =
     | Element | Attribute ->
         pp fmt "%s" begin
           if QNameSet.is_finite ts then
-            QName.to_string (QName.remove_prefix (QNameSet.choose ts))
+            QName.to_string (QNameSet.choose ts)
           else "*"
         end
     | Comment -> pp fmt "%s" "comment()"
@@ -136,7 +136,7 @@ and print_test fmt (ts,kind) =
         pp fmt "processing-instruction(%s)"
           begin
             if ts == star then ""
-            else "\"" ^ (QName.to_string (QName.remove_prefix (QNameSet.choose ts))) ^ "\""
+            else "\"" ^ (QName.to_string  (QNameSet.choose ts)) ^ "\""
           end
     | Node -> pp fmt "%s" "node()"
     | Document -> pp fmt "%s" "<DOCUMENT>"