X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flibrary%2FlibraryDb.ml;h=858e4c4ff790e97dee62f215862bf5e55db939a0;hb=53f240d750e1e59bb79ce4d22de9eac23ef5f137;hp=3ea0f481aacc6ecb6534cc896afa61b1bc310341;hpb=3372d83cd96aa79446d2aa05adb386e9004460cf;p=helm.git

diff --git a/components/library/libraryDb.ml b/components/library/libraryDb.ml
index 3ea0f481a..858e4c4ff 100644
--- a/components/library/libraryDb.ml
+++ b/components/library/libraryDb.ml
@@ -69,7 +69,8 @@ let clean_owner_environment () =
       List.iter
         (fun suffix ->
           try
-           HExtlib.safe_remove (Http_getter.resolve (uri ^ suffix))
+           HExtlib.safe_remove 
+             (Http_getter.resolve ~writable:true (uri ^ suffix))
           with Http_getter_types.Key_not_found _ -> ())
         [""; ".body"; ".types"])
     owned_uris;