ТРАП при внедрении картинки.

## Код:
```
PROCEDURE (v: StdView) SetEmbLink (link: ARRAY OF CHAR);
...
                v.link := link$;
      (* PATCH BEGIN *)
      SplitPath(v.link, name); 
      src := Files.dir.Old(Files.dir.This(v.link$), name$, TRUE);
      ASSERT(src # NIL, 101);      
      v.link := name$;
      v.browser := NIL;
      v.embedded := TRUE;
      (* PATCH END *)
      (* loading external data *)
      NEW(v.data);
```
