src/HOL/Mutabelle/mutabelle.ML

--- a/src/HOL/Mutabelle/mutabelle.ML	Mon Sep 20 15:29:53 2010 +0200
+++ b/src/HOL/Mutabelle/mutabelle.ML	Mon Sep 20 16:05:25 2010 +0200
@@ -59,7 +59,7 @@
 
 fun all_unconcealed_thms_of thy =
   let
-    val facts = PureThy.facts_of thy
+    val facts = Global_Theory.facts_of thy
   in
     Facts.fold_static
       (fn (s, ths) =>