src/Pure/Tools/generated_files.ML

--- a/src/Pure/Tools/generated_files.ML	Thu Apr 04 16:47:09 2019 +0200
+++ b/src/Pure/Tools/generated_files.ML	Thu Apr 04 20:45:55 2019 +0200
@@ -74,7 +74,10 @@
 );
 
 fun add_files (binding, content) =
-  let val (path, pos) = Path.dest_binding binding in
+  let
+    val _ = Path.proper_binding binding;
+    val (path, pos) = Path.dest_binding binding;
+  in
     (Data.map o @{apply 3(1)}) (fn files =>
       (case AList.lookup (op =) files path of
         SOME (pos', _) =>