* Open array also needs arg name. Fixes issue #38934

packages/rtl-objpas/src/inc/rtti.pp

@@ -5686,7 +5686,7 @@ begin
     if Assigned(t) then begin
       FString := FString + ': ';
       if pfArray in flags then
-        FString := 'array of ';
+        FString := FString + 'array of ';
       FString := FString + t.Name;
     end;
   end;