FreeBSD 12 x64 crash for DiskFree/AddDisk

Free Pascal Compiler version 3.2.3-425-gebc55c0f-dirty [2021/09/09] for x86_64

This code crashes, I cannot detect where exactly because Lazarus debuggers (gdb and fpDebug) don't work on Freebsd.

  fn:= ParamStr(0);
  n:= SysUtils.DiskFree(SysUtils.AddDisk(ExtractFileDir(fn)));