diff --recursive -u dev/modules/module_interface.adb dev2/modules/module_interface.adb
--- dev/modules/module_interface.adb	2003-12-23 14:24:07.000000000 -0500
+++ dev2/modules/module_interface.adb	2003-12-23 14:25:18.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;