Похоже, обнаружил ошибку в модуле HostFiles в процедуре Old. При вызове процедуры с несуществующим указанным файлом срабатывает капкан (trap) под номером 107.
Процедура вызывается из создаваемой библиотеки.
## Код:
```
MODULE TestFiles;

   IMPORT Files, (*Log := StdLog*) Console, LinConsole;
   
   PROCEDURE WriteLn(s: ARRAY OF CHAR);
   BEGIN
      (*Log.String(s); Log.Ln*)
      Console.WriteStr(s); Console.WriteLn
   END WriteLn;
   
   PROCEDURE WriteInt(x: INTEGER);
   BEGIN
      (*Log.Int(x); Log.Ln*)
      Console.WriteChar(CHR(x + ORD('0'))); Console.WriteLn
   END WriteInt;
   
   PROCEDURE Do*;
      VAR f: Files.File; loc: Files.Locator;
   BEGIN
      loc := Files.dir.This(".");
      f := Files.dir.Old (loc, "Test1.cmps", Files.shared);
      IF f # NIL THEN
         WriteLn("Opened.");
         f.Close()
      ELSE
         WriteLn("Failed.");
         IF loc.res # 0 THEN
            WriteInt(loc.res)
         END
      END
   END Do;
   
BEGIN
   Console.Open;
   Do
END TestFiles.
```


TestFiles.Do

DevElfLinker.LinkDll libfiles.so := Kernel+ Files HostFiles Console LinConsole TestFiles#~