--- a/gpr/src/gpr-util.adb	2022-03-19 22:41:32.372348082 +0100
+++ b/gpr/src/gpr-util.adb	2022-03-19 22:41:54.325010633 +0100
@@ -3634,7 +3634,7 @@
             end if;
          end loop;
 
-         return Ret;
+         return Ret(1 .. Length - Separator'Length);
       end;
    end Concat_Paths;