diff -r 7a7898b1cfa4 -r 28638d2a6bc7 src/Pure/goal.ML
--- a/src/Pure/goal.ML	Wed Jul 19 12:11:59 2006 +0200
+++ b/src/Pure/goal.ML	Wed Jul 19 12:12:00 2006 +0200
@@ -138,7 +138,7 @@
     val ctxt' = ctxt
       |> Variable.set_body false
       |> (snd o Variable.add_fixes xs)
-      |> fold Variable.declare_term (asms @ props);
+      |> fold Variable.declare_internal (asms @ props);
 
     val res =
       (case SINGLE (tac prems) (init (cert_safe prop)) of