src/Pure/PIDE/query_operation.ML

 
 structure Query_Operation: QUERY_OPERATION =
 struct
 
 fun register {name, pri} f =
-  Command.print_function name
+  Command.print_function (name ^ "_query")
     (fn {args = instance :: args, ...} =>
         SOME {delay = NONE, pri = pri, persistent = false, strict = false,
           print_fn = fn _ => uninterruptible (fn restore_attributes => fn state =>
             let
               fun result s = Output.result [(Markup.instanceN, instance)] [s];

               val _ = status Markup.finished;
             in () end)}
       | _ => NONE);
 
 end;
-