diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index f320e4f5841eb4b4a285d3b25b09fbb793985347..7e4c80c65cdee2d918e1fc12aa6fee6fa85d75d6 100644
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -1097,7 +1097,11 @@ package body Make is
       --  Fail if unable to change to the object directory
 
       when Directory_Error =>
-         Make_Failed ("unable to change to object directory of project " &
+         Make_Failed ("unable to change to object directory """ &
+                      Get_Name_String
+                        (Project_Tree.Projects.Table
+                           (Actual_Project).Object_Directory) &
+                      """ of project " &
                       Get_Name_String (Project_Tree.Projects.Table
                                          (Actual_Project).Display_Name));
    end Change_To_Object_Directory;