diff -r 20aa19ecf2cc -r 9e0ecb66d6a7 src/HOL/SPARK/Tools/spark_commands.ML
--- a/src/HOL/SPARK/Tools/spark_commands.ML	Mon Nov 03 14:31:15 2014 +0100
+++ b/src/HOL/SPARK/Tools/spark_commands.ML	Mon Nov 03 14:50:27 2014 +0100
@@ -126,7 +126,7 @@
     (Parse.name >> (fn name => Toplevel.local_theory_to_proof NONE (prove_vc name)));
 
 val _ =
-  Outer_Syntax.improper_command @{command_spec "spark_status"}
+  Outer_Syntax.command @{command_spec "spark_status"}
     "show the name and state of all loaded verification conditions"
     (Scan.optional
        (Args.parens