--- a/src/Tools/WWW_Find/find_theorems.ML Mon May 30 17:00:38 2011 +0200
+++ b/src/Tools/WWW_Find/find_theorems.ML Mon May 30 17:07:48 2011 +0200
@@ -210,7 +210,7 @@
val ctxt = Proof_Context.init_global (Thy_Info.get_theory thy_name);
val query = get_query ();
val (othmslen, thms) = apsnd rev
- (Find_Theorems.find_theorems ctxt NONE (SOME limit) with_dups query);
+ (Find_Theorems.find_theorems_cmd ctxt NONE (SOME limit) with_dups query);
val thmslen = length thms;
fun thm_row args = Xhtml.write send (html_thm ctxt args);
in