diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 395f34aac7..fb80952eb2 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -1319,6 +1319,8 @@ implementation
                                   { do a very dirty trick to bootstrap this code }
                                   if (pconstsym(srsym)^.value>=-(int64(2147483647)+int64(1))) and (pconstsym(srsym)^.value<=2147483647) then
                                     p1:=genordinalconstnode(pconstsym(srsym)^.value,s32bitdef)
+                                  else if (pconstsym(srsym)^.value > maxlongint) and (pconstsym(srsym)^.value <= int64(maxlongint)+int64(maxlongint)+1) then
+                                    p1:=genordinalconstnode(pconstsym(srsym)^.value,u32bitdef)
                                   else
                                     p1:=genordinalconstnode(pconstsym(srsym)^.value,cs64bitdef);
                                 conststring :
@@ -2418,7 +2420,10 @@ _LECKKLAMMER : begin
 end.
 {
   $Log$
-  Revision 1.22  2000-12-17 14:00:18  peter
+  Revision 1.23  2000-12-19 20:36:03  peter
+    * cardinal const expr fix from jonas
+
+  Revision 1.22  2000/12/17 14:00:18  peter
     * fixed static variables
 
   Revision 1.21  2000/12/15 13:26:01  jonas