src/Pure/Thy/thy_output.ML

--- a/src/Pure/Thy/thy_output.ML	Tue Nov 24 17:28:44 2009 +0100
+++ b/src/Pure/Thy/thy_output.ML	Wed Nov 25 09:13:46 2009 +0100
@@ -265,7 +265,7 @@
       if nesting = 0 andalso not (Toplevel.is_proof state) then tag_stack
       else if nesting >= 0 then (tag', replicate nesting tag @ tags)
       else
-        (case (uncurry drop) (~ nesting - 1, tags) of
+        (case drop (~ nesting - 1) tags of
           tgs :: tgss => (tgs, tgss)
         | [] => err_bad_nesting (Position.str_of cmd_pos));