A small patch to get adadoc compiling with xmlada-1.0. The 'Read' function was converted to a 'Read' procedure.

-- dev/modules/module_interface.adb    2003-12-17 19:50:56.000000000 -0500
+++ dev/modules/module_interface.adb    2003-12-17 19:50:56.000000000 -0500
@@ -64,7 +64,7 @@
       Char : Unicode.Unicode_Char;
    begin
       for I in String_Tmp'Range loop
-         Char := Read(Item, J);
+         Read(Item, J, Char);
          String_Tmp(I) := Character'Val(Char);
          J := J + Width(Char);
       end loop;