diff --git a/src/setting/Code.pm b/src/setting/Code.pm
index 9dc0cc28471..64f237faeb3 100644
--- a/src/setting/Code.pm
+++ b/src/setting/Code.pm
@@ -3,7 +3,7 @@ class Code is also {
 =begin item ACCEPTS
 
 =end item
-    method ACCEPTS($topic) {
+    method ACCEPTS(Object $topic) {
         self($topic);
     }
 
diff --git a/src/setting/Object.pm b/src/setting/Object.pm
index e8ff4be9b92..b4066574b28 100644
--- a/src/setting/Object.pm
+++ b/src/setting/Object.pm
@@ -31,7 +31,7 @@ class Object is also {
                     @search_list = @new_search_list;
                 }
             } elsif $ascendant | $preorder {
-                my sub build_ascendent($class) {
+                my sub build_ascendent(Object $class) {
                     unless any(@classes <<===>> $class) {
                         push @classes, $class;
                         for $class.^parents(:local) {
@@ -41,7 +41,7 @@ class Object is also {
                 }
                 build_ascendent(self.WHAT);
             } elsif $descendant {
-                my sub build_descendent($class) {
+                my sub build_descendent(Object $class) {
                     unless any(@classes <<===>> $class) {
                         for $class.^parents(:local) {
                             build_descendent($^parent);