src/Pure/Isar/isar_syn.ML

--- a/src/Pure/Isar/isar_syn.ML	Mon Nov 05 20:50:42 2007 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Mon Nov 05 20:50:43 2007 +0100
@@ -387,7 +387,7 @@
 val _ =
   OuterSyntax.command "context" "enter local theory context" K.thy_decl
     (P.name --| P.begin >> (fn name =>
-      Toplevel.print o Toplevel.begin_local_theory true (TheoryTarget.init_cmd name)));
+      Toplevel.print o Toplevel.begin_local_theory true (TheoryTarget.context name)));
 
 
 (* locales *)