diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 01ec108f3d..b0c82951f8 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -727,8 +727,9 @@ unit typinfo;
           PT : PTypeData;
 
       begin
-       PT:=GetTypeData(GetTypeData(TypeInfo)^.BaseType);
-       If PT^.MinValue<0 then Value:=Ord(Value<>0); {map to 0/1}
+       PT:=GetTypeData(TypeInfo);
+       // ^.BaseType);
+       //      If PT^.MinValue<0 then Value:=Ord(Value<>0); {map to 0/1}
        PS:=@PT^.NameList;
        While Value>0 Do
          begin
@@ -746,7 +747,7 @@ unit typinfo;
 
       begin
         If Length(Name)=0 then exit(-1);
-        PT:=GetTypeData(GetTypeData(TypeInfo)^.BaseType);
+        PT:=GetTypeData(TypeInfo);
         Count:=0;
         Result:=-1;
         PS:=@PT^.NameList;
@@ -763,7 +764,10 @@ end.
 
 {
   $Log$
-  Revision 1.19  1999-04-08 11:31:04  peter
+  Revision 1.20  1999-05-03 07:30:07  michael
+  * Fixes in getenum*
+
+  Revision 1.19  1999/04/08 11:31:04  peter
     * removed warnings
 
   Revision 1.18  1999/01/19 16:08:12  pierre