diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index b65bc1c..40a9b46 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.5.1")> 
-<Assembly: AssemblyFileVersion("1.8.5.1")> 
+<Assembly: AssemblyVersion("1.8.5.2")> 
+<Assembly: AssemblyFileVersion("1.8.5.2")> 
diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 68bb5a9..b94127f 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -1217,7 +1217,7 @@ Namespace EgtCAM5
          EgtZoom(ZM.ALL)
       End Sub
 
-      Private Sub OnSavingProject(ByVal sender As Object) Handles m_Controller.OnSavingProject
+      Private Sub OnSavingProject(ByVal sender As Object, ByVal sFile As String) Handles m_Controller.OnSavingProject
       End Sub
 
       Private Sub OnSavedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnSavedProject
@@ -1231,7 +1231,7 @@ Namespace EgtCAM5
          End If
       End Sub
 
-      Private Sub OnSavingObject(ByVal sender As Object) Handles m_Controller.OnSavingObject
+      Private Sub OnSavingObject(ByVal sender As Object, ByVal sFile As String) Handles m_Controller.OnSavingObject
       End Sub
 
       Private Sub OnSavedObject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnSavedObject