--- a/src/Pure/Isar/object_logic.ML Sun Mar 07 11:57:16 2010 +0100
+++ b/src/Pure/Isar/object_logic.ML Sun Mar 07 12:19:47 2010 +0100
@@ -34,7 +34,7 @@
val rule_format_no_asm: attribute
end;
-structure ObjectLogic: OBJECT_LOGIC =
+structure Object_Logic: OBJECT_LOGIC =
struct
(** theory data **)