pass exn;

--- a/src/ZF/Tools/induct_tacs.ML	Sat Jul 10 21:50:49 1999 +0200
+++ b/src/ZF/Tools/induct_tacs.ML	Sat Jul 10 21:51:25 1999 +0200
@@ -183,7 +183,7 @@
 	       (foldr Symtab.update (con_pairs, ConstructorsData.get thy))
 	  |> Theory.parent_path
   end
-  handle _ => error "Failure in rep_datatype";
+  handle exn => (writeln "Failure in rep_datatype"; raise exn);
 
 end;