diff --git a/gap/main/graded.gi b/gap/main/graded.gi
index fa10b2c4e..b5471142e 100644
--- a/gap/main/graded.gi
+++ b/gap/main/graded.gi
@@ -245,7 +245,7 @@ function(S)
     degree := degree + 1;
   fi;
   fam := CollectionsFamily(FamilyObj(LambdaFunc(S)(Representative(S))));
-  return Objectify(NewType(fam, IsGradedLambdaOrbs),
+  return Objectify(NewType(fam, IsGradedLambdaOrbs and IsComponentObjectRep),
                    rec(orbits := List([1 .. degree], x -> []),
                        lens := [1 .. degree] * 0,
                        parent := S));
@@ -264,7 +264,8 @@ function(S)
   if IsMatrixOverFiniteFieldSemigroup(S) then
     degree := degree + 1;
   fi;
-  return Objectify(NewType(FamilyObj(S), IsGradedRhoOrbs),
+  return Objectify(NewType(FamilyObj(S),
+                           IsGradedRhoOrbs and IsComponentObjectRep),
                    rec(orbits := List([1 .. degree], x -> []),
                        lens := [1 .. degree] * 0,
                        parent := S));