diff --git a/compiler/i386/ra386att.pas b/compiler/i386/ra386att.pas
index 25e8661fdb..12793d0222 100644
--- a/compiler/i386/ra386att.pas
+++ b/compiler/i386/ra386att.pas
@@ -1612,7 +1612,7 @@ var
   i : longint;
 begin
   OpOrder:=op_att;
-  for i:=1to max_operands do
+  for i:=1 to max_operands do
    Operands[i]:=T386AttOperand.Create;
 end;
 
@@ -2119,7 +2119,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.54  2003-10-24 17:39:03  peter
+  Revision 1.55  2003-10-26 13:37:22  florian
+    * fixed web bug 2128
+
+  Revision 1.54  2003/10/24 17:39:03  peter
     * more intel parser updates
 
   Revision 1.53  2003/10/23 17:19:44  peter
diff --git a/compiler/ncgcon.pas b/compiler/ncgcon.pas
index b87185e6ac..e87db26ab6 100644
--- a/compiler/ncgcon.pas
+++ b/compiler/ncgcon.pas
@@ -153,7 +153,12 @@ implementation
 {$else ver1_0}
                     { the round is necessary for native compilers where comp isn't a float }
                     ait_comp_64bit :
-                      Consts.concat(Tai_comp_64bit.Create(round(value_real)));
+                      begin
+                        if (value_real>9223372036854775807.0) or (value_real<-9223372036854775808.0) then
+                          Message(parser_e_range_check_error)
+                        else
+                          Consts.concat(Tai_comp_64bit.Create(round(value_real)));
+                      end;
 {$endif ver1_0}
                   else
                     internalerror(10120);
@@ -554,7 +559,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.32  2003-10-10 17:48:13  peter
+  Revision 1.33  2003-10-26 13:37:22  florian
+    * fixed web bug 2128
+
+  Revision 1.32  2003/10/10 17:48:13  peter
     * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
     * tregisteralloctor renamed to trgobj
     * removed rgobj from a lot of units