Index: Convert.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-libs/m3core/src/convert/Convert.m3,v
retrieving revision 1.4
diff -u -r1.4 Convert.m3
--- Convert.m3	9 Jan 2009 03:43:17 -0000	1.4
+++ Convert.m3	14 Jan 2010 12:26:03 -0000
@@ -126,7 +126,7 @@
 
       (* convert the bulk of the digits *)
       WHILE (value > 0L) DO
-        result [nDigits] := Digits [ORD(value MOD VAL(base, LONGINT))];
+        result [nDigits] := Digits [VAL(value MOD VAL(base, LONGINT), INTEGER)];
         value := value DIV VAL(base, LONGINT);
         INC (nDigits);
       END;
@@ -230,7 +230,7 @@
     ELSE
       (* convert the bulk of the digits *)
       WHILE (value # 0L) DO
-        result [nDigits] := Digits [ORD(Long.Mod (value, VAL(base, LONGINT)))];
+        result [nDigits] := Digits [VAL(Long.Mod (value, VAL(base, LONGINT)), INTEGER)];
         value := Long.Divide (value, VAL(base, LONGINT));
         INC (nDigits);
       END;