--- a/FileSystem.MRI.mi
+++ b/FileSystem.MRI.mi
@@ -38,7 +38,7 @@
                      close,read,write,unlink,Stat,fstat,chmod,sync,
                      LockExclusive,LockUnlock,LockNoblock,flock;
               IMPORT UnixLib; (* SIGNED *)
-              IMPORT fslength;
+              IMPORT UnixCalls;
 FROM Storage  IMPORT ALLOCATE,DEALLOCATE;
               IMPORT StringsLib;
 FROM Errors   IMPORT Fehler,Fehlerflag,ErrOut,FatalError;
@@ -247,7 +247,7 @@
           IF (f = -1) THEN (* Datei nicht zu l"oschen ! *)
             Fehler:=TRUE;
             Fehlerflag:="Zugriff verweigert (FileSystem.Lookup) !";
-            fslength.SetErrFlag(Fehlerflag);
+            UnixCalls.SetErrFlag(Fehlerflag);
             IF CheckIO THEN ErrOut(Fehlerflag); END;
             RETURN;
           END;
@@ -487,7 +487,7 @@
       END;
       IF NOT UseStat THEN (* Viel zu kompliziert, fstat ist einfacher *)
         GetFileName(f,DName); (* Dateiname von f ermitteln, dann *)
-        fslength.FileLength(Len,error,DName);
+        UnixCalls.FileLength(Len,error,DName);
       ELSE
         (* error := stat(ADR(DName),StatPuf); *)
         error := fstat(f,StatPuf);
@@ -575,7 +575,7 @@
 BEGIN
       nbyte := read(f,ADR(Ziel),n);
       IF (nbyte = -1) THEN
-        fslength.SetErrFlag(Fehlerflag);
+        UnixCalls.SetErrFlag(Fehlerflag);
         IF CheckIO THEN ErrOut(Fehlerflag); END;
         Fehler:=TRUE; m:=0; 
         RETURN;
@@ -721,7 +721,7 @@
       lock := CAST(INTEGER,tmp);
       err := flock(f,lock);
       IF (err # 0) THEN
-        fslength.SetErrFlag(Fehlerflag);
+        UnixCalls.SetErrFlag(Fehlerflag);
         ErrOut(Fehlerflag);
       END; 
 END Lock;
@@ -732,7 +732,7 @@
 BEGIN
       err := flock(f,LockUnlock);
       IF (err # 0) THEN
-        fslength.SetErrFlag(Fehlerflag);
+        UnixCalls.SetErrFlag(Fehlerflag);
         ErrOut(Fehlerflag);
       END; 
 END UnLock;