diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 419f76f6ae..0feeb436b6 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -1600,9 +1600,9 @@ implementation
                    if left.nodetype=ordconstn then
                     begin
                       if inlinenumber=in_succ_x then
-                       hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,false)
+                       hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,true)
                       else
-                       hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,false);
+                       hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,true);
                       result:=hp;
                     end;
                 end;
@@ -2380,7 +2380,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.88  2002-09-08 13:01:25  jonas
+  Revision 1.89  2002-09-09 19:41:01  peter
+    * check ranges for pred() and succ()
+
+  Revision 1.88  2002/09/08 13:01:25  jonas
     * first_pi now just generates a constant, added missing calls to firstpass()
 
   Revision 1.87  2002/09/07 20:42:16  carl