Index: Fmt.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-libs/libm3/src/fmtlex/Fmt.m3,v
retrieving revision 1.3
diff -u -r1.3 Fmt.m3
--- Fmt.m3	17 Mar 2008 05:55:14 -0000	1.3
+++ Fmt.m3	14 Jan 2010 12:26:56 -0000
@@ -81,7 +81,7 @@
 PROCEDURE LongInt(n: LONGINT; base: Base := 10): TEXT =
   BEGIN
     IF VAL(FIRST(SmallInts), LONGINT) <= n AND n <= VAL(LAST(SmallInts), LONGINT) AND base = 10
-      THEN RETURN SmallInts[ORD(n)]
+      THEN RETURN SmallInts[VAL(n, INTEGER)]
       ELSE RETURN AnyLongInt(n, base)
     END
   END LongInt;
@@ -96,7 +96,7 @@
 PROCEDURE LongUnsigned (n: Long.T; base: Base := 10): TEXT =
   BEGIN
     IF 0L <= n AND n <= VAL(LAST(SmallInts), LONGINT) AND base = 10
-      THEN RETURN SmallInts[ORD(n)]
+      THEN RETURN SmallInts[VAL(n, INTEGER)]
       ELSE RETURN AnyLongUnsigned (n, base)
     END
   END LongUnsigned;