[Oberon] SystemV - Directory

[Tomas Kral]

Hi,

`System.Directory' on files w/o dot extension gives TRAP 1 around this
line,

 ...
 IF (name[i0] = 0X) & (pat[j0] = 0X) THEN (*found*)
 ...
 END List;

I have applied this patch on "!" option
 ...
 pat[i] := 0X; pat[i+1] := ch;  (*directory option*)
 (*IF ch = "!" THEN pat[i+1] := "!" END ;*)
 ...
 END Directory;

What is a quick remedy?

-- 
Tomas Kral <thomas.kral at email.cz>