Correct previous fix + improve error message in case of missing namespace.

parser/ulexer.ml

@@ -81,7 +81,7 @@ module Token = struct
   let extract_string =
     function
       | KEYWORD s | IDENT s | INT s | STRING1 s | STRING2 s |
-	  ANY_IN_NS -> s
+	  ANY_IN_NS s -> s
       | tok ->
         invalid_arg ("Cannot extract a string from this token: "^
                      to_string tok)

runtime/load_xml.ml

@@ -100,7 +100,8 @@ let load_xml ?(ns=false) s =
       | _ -> Value.failwith' "No XML stream to parse"
   with e -> stack := Empty; txt.pos <-0; 
     match e with 
-      | Ns.UnknownPrefix _ -> Value.failwith' "Unknown namespace prefix"
+      | Ns.UnknownPrefix n -> Value.failwith' 
+	("Unknown namespace prefix: " ^ (U.get_str n)) 
       | e -> raise e