diff --git a/app/src/gambas3/.src/FMain.form b/app/src/gambas3/.src/FMain.form
index ae33e7676..154d18c99 100644
--- a/app/src/gambas3/.src/FMain.form
+++ b/app/src/gambas3/.src/FMain.form
@@ -771,6 +771,11 @@
         Text = ("Show all")
         Picture = Picture["icon:/small/clear"]
       }
+      { mnuRefreshProject Menu
+        Action = "refresh-project"
+        Text = ("Refresh project")
+        Picture = Picture["icon:/small/refresh"]
+      }
       { Menu55 Menu
       }
       { mnuUseInheritance Menu
diff --git a/app/src/gambas3/.src/Save.module b/app/src/gambas3/.src/Save.module
index 920b1cfe8..77c0f54b9 100644
--- a/app/src/gambas3/.src/Save.module
+++ b/app/src/gambas3/.src/Save.module
@@ -4,6 +4,7 @@ Public NewFile As Boolean
 
 Private $sPath As String
 Private $bRename As Boolean
+Private $sAuth As String
 
 Public Sub Begin(sPath As String, Optional bKeep As Boolean)
   
@@ -11,6 +12,7 @@ Public Sub Begin(sPath As String, Optional bKeep As Boolean)
   $sPath = sPath
   
   NewFile = Not Exist(sPath)
+  Try $sAuth = Stat(sPath).Auth
   
   Try Kill sPath & "~"
   If Not NewFile Then
@@ -28,6 +30,8 @@ End
 Public Sub End()
   
   Dim sForm As String
+
+  If $sAuth Then Chmod $sPath To $sAuth
   
   VersionControl.UpdatePath($sPath)
   Try Project.Tree.RefreshKey($sPath)