Отчаянно пытаюсь записать строку в текстовый файл, но не получается.

## Код:
```
MODULE Mm;

IMPORT Files, TextMappers, Stores;

PROCEDURE Do* ();
VAR
   f: Files.File;
   loc: Files.Locator;
   w: Stores.Writer;
   res: INTEGER;
BEGIN
   loc := Files.dir.This("");
   loc := loc.This("jfdjhf");
   f := Files.dir.New(loc, FALSE);
   f.Register("t", "txt", TRUE, res);
   w.ConnectTo(f); 
   w.WriteString("sdjsjdhsjdhs");
   f.Close(); 
END Do;

END Mm.
```


Ошибка выскакивает, когда производится w.ConnectTo(f) - похоже на то, что я забыл сделать что-то перед этим, но что?