diff -r 20aa19ecf2cc -r 9e0ecb66d6a7 src/HOL/Library/refute.ML
--- a/src/HOL/Library/refute.ML	Mon Nov 03 14:31:15 2014 +0100
+++ b/src/HOL/Library/refute.ML	Mon Nov 03 14:50:27 2014 +0100
@@ -2967,7 +2967,7 @@
 (* 'refute' command *)
 
 val _ =
-  Outer_Syntax.improper_command @{command_spec "refute"}
+  Outer_Syntax.command @{command_spec "refute"}
     "try to find a model that refutes a given subgoal"
     (scan_parms -- Scan.optional Parse.nat 1 >>
       (fn (parms, i) =>