diff -r a28d83e903ce -r 2ef9892114fd src/Provers/classical.ML
--- a/src/Provers/classical.ML	Tue Mar 17 13:33:21 2009 +0100
+++ b/src/Provers/classical.ML	Tue Mar 17 14:09:20 2009 +0100
@@ -688,7 +688,7 @@
 (*version of bimatch_from_nets_tac that only applies rules that
   create precisely n subgoals.*)
 fun n_bimatch_from_nets_tac n =
-    biresolution_from_nets_tac (Tactic.orderlist o List.filter (nsubgoalsP n)) true;
+    biresolution_from_nets_tac (order_list o List.filter (nsubgoalsP n)) true;
 
 fun eq_contr_tac i = ematch_tac [not_elim] i  THEN  eq_assume_tac i;
 val eq_assume_contr_tac = eq_assume_tac ORELSE' eq_contr_tac;