Amiga,AROS,MorphOS: IncludeTrailingPathDelimiter not adding DirectorySeparator after Driveseparator

git-svn-id: trunk@28541 -

rtl/objpas/sysutils/fina.inc

@@ -424,6 +424,9 @@ begin
   Result:=Path;
   l:=Length(Result);
   If (L=0) or not CharInSet(Result[l],AllowDirectorySeparators) then
+{$if defined(Amiga) or defined(AROS) or defined(MorphOS)}
+    If (L>0) and (Result[l] <> DriveSeparator) then
+{$endif}
 {$ifdef SYSUTILSUNICODE}
     Result:=Result+DirectorySeparator;
 {$else SYSUTILSUNICODE}