diff --git a/src/fs-filo.adb b/src/fs-filo.adb
index 3280b34..591f321 100644
--- a/src/fs-filo.adb
+++ b/src/fs-filo.adb
@@ -1,21 +1,19 @@
 package body FS.FILO is
 
    procedure Read
-      (Buffer    : in out Buffer_Type;
-       Offset    : in     Natural;
-       Bytes_Read:    out Natural)
+      (Buffer  : in out Buffer_Type;
+       Offset  : in     Natural;
+       Success :    out Boolean)
    is
-      Sector_Size : constant Natural := 512;
-      Sector      : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
-      Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
-      Byte_Len    : constant Interfaces.C.unsigned_long := Buffer'Length;
+      --Sector_Size : constant Natural := 512;
+      --Sector      : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
+      --Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
+      --Byte_Len    : constant Interfaces.C.unsigned_long := Buffer'Length;
+      --function To_Bool(Item : Interfaces.C.int) return Bool is
+      --   (if Item = 0 then False else True);
    begin
-
-      Bytes_Read := C_devread
-         (sector => Sector,
-          byte_offset => Byte_Offset,
-          byte_len => Byte_Len,
-          buf => Buffer'Address);
+      null;
+      --Success := To_Bool (C_devread (Sector, Byte_Offset, Byte_Len, Buffer'Address));
    end Read;
 
 end FS.FILO;