src/HOLCF/HOLCF.ML

--- a/src/HOLCF/HOLCF.ML	Tue Sep 21 19:10:39 1999 +0200
+++ b/src/HOLCF/HOLCF.ML	Tue Sep 21 19:11:07 1999 +0200
@@ -8,7 +8,7 @@
 
 use"adm.ML";
 
-simpset_ref() := simpset() addSolver(fn thms =>
-            (adm_tac (cut_facts_tac thms THEN' cont_tacRs)));
+simpset_ref() := simpset() addSolver
+   (mk_solver "adm_tac" (fn thms => (adm_tac (cut_facts_tac thms THEN' cont_tacRs))));
 
 val HOLCF_ss = simpset();