avoid gensym;

--- a/src/Pure/Thy/present.ML	Thu Oct 04 13:26:34 2007 +0200
+++ b/src/Pure/Thy/present.ML	Thu Oct 04 14:42:11 2007 +0200
@@ -533,7 +533,9 @@
       let
         val base = Path.base path;
         val name =
-          (case Path.implode (#1 (Path.split_ext base)) of "" => gensym "DUMMY" | s => s);
+          (case Path.implode (#1 (Path.split_ext base)) of
+            "" => "DUMMY" ^ serial_string ()
+          | s => s);
       in
         if File.exists path then
           (((name, base, File.read path), (i, Latex.theory_entry name)), i + 1)