X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_cic_content%2Fncic2astMatcher.ml;h=1c71db8c5881eec384b24ec04ed472e9981c8500;hb=6c702f5054d7975f76911ba62da9bfa33d3ed0fa;hp=4f65e9c03abb070f9ec9a01da572f17f26c23789;hpb=8196005571cabe243e658b08a71ffe7df6efa1d7;p=helm.git

diff --git a/matitaB/components/ng_cic_content/ncic2astMatcher.ml b/matitaB/components/ng_cic_content/ncic2astMatcher.ml
index 4f65e9c03..1c71db8c5 100644
--- a/matitaB/components/ng_cic_content/ncic2astMatcher.ml
+++ b/matitaB/components/ng_cic_content/ncic2astMatcher.ml
@@ -61,8 +61,10 @@ struct
 
     (* Debugging functions only *)
     let string_of_pattern = NotationPp.pp_cic_appl_pattern
+
+    (* WR: hope it's safe to pass userid=None to NCicPp.status *)
     let string_of_term t =
-     (new NCicPp.status)#ppterm ~metasenv:[] ~subst:[] ~context:[] t
+     (new NCicPp.status None)#ppterm ~metasenv:[] ~subst:[] ~context:[] t
 
     let classify = function
       | Ast.ImplicitPattern