diff -r b6c527c64789 -r f579dab96734 src/Pure/ML/ml_thms.ML
--- a/src/Pure/ML/ml_thms.ML	Wed Oct 19 16:45:46 2011 +0200
+++ b/src/Pure/ML/ml_thms.ML	Wed Oct 19 17:03:07 2011 +0200
@@ -52,7 +52,7 @@
 
 val and_ = Args.$$$ "and";
 val by = Args.$$$ "by";
-val goal = Scan.unless (by || and_) Args.name;
+val goal = Scan.unless (by || and_) Args.name_source;
 
 val _ =
   Context.>> (Context.map_theory