src/Provers/classical.ML

--- a/src/Provers/classical.ML	Mon Nov 03 14:31:15 2014 +0100
+++ b/src/Provers/classical.ML	Mon Nov 03 14:50:27 2014 +0100
@@ -980,7 +980,7 @@
 (** outer syntax **)
 
 val _ =
-  Outer_Syntax.improper_command @{command_spec "print_claset"} "print context of Classical Reasoner"
+  Outer_Syntax.command @{command_spec "print_claset"} "print context of Classical Reasoner"
     (Scan.succeed (Toplevel.unknown_context o Toplevel.keep (print_claset o Toplevel.context_of)));
 
 end;