From 0358bfac55f2ba7597805f638967134255731128 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Mon, 21 Oct 2013 20:27:54 +0400
Subject: [PATCH] OakFiles fixed

---
 src/lib/v4/OakFiles.Mod | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/lib/v4/OakFiles.Mod b/src/lib/v4/OakFiles.Mod
index e28bd920..1cbc274f 100644
--- a/src/lib/v4/OakFiles.Mod
+++ b/src/lib/v4/OakFiles.Mod
@@ -239,7 +239,10 @@ MODULE OakFiles;  (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix fil
   BEGIN
     IF name # "" THEN
       IF HasDir(name) THEN dir := ""; COPY(name, path)
-      ELSE pos := 0; (*ScanPath(pos, dir);*) MakeFileName(dir, name, path); (*ScanPath(pos, dir)*)
+      ELSE 
+         pos := 0;
+	 COPY(name, path); (* -- noch *)
+	 (*ScanPath(pos, dir);*) (*MakeFileName(dir, name, path);*) (*ScanPath(pos, dir)*)
       END ;
       LOOP
         fd := Unix.Open(path, Unix.rdwr, {}); done := fd >= 0; errno := Unix.errno();
@@ -270,7 +273,8 @@ END ;
             RETURN f
           END
         ELSIF dir = "" THEN RETURN NIL
-        ELSE MakeFileName(dir, name, path); (*ScanPath(pos, dir)*)
+        ELSE (*MakeFileName(dir, name, path);*) (*ScanPath(pos, dir)*)
+	RETURN NIL
         END
       END
     ELSE RETURN NIL