diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 0e26ff3554..e199e7e713 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -623,6 +623,7 @@ begin
              Value:=Value and $ff;
            tkWChar:
              Value:=Value and $ffff;
+	   tkEnumeration,
            tkInteger:
              case GetTypeData(TypeInfo)^.OrdType of
                 otSWord,otUWord:
@@ -1213,7 +1214,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.17  2003-10-17 20:58:27  olle
+  Revision 1.18  2003-10-24 08:37:20  marco
+   * Fix from Peter
+
+  Revision 1.17  2003/10/17 20:58:27  olle
     * Changed m68k to cpum68k, i386 to cpui386
 
   Revision 1.16  2003/04/24 11:46:25  florian