diff --git a/lib/Lacuna/DB/Result/Building.pm b/lib/Lacuna/DB/Result/Building.pm
index 9db5dc9d..471fe5f6 100644
--- a/lib/Lacuna/DB/Result/Building.pm
+++ b/lib/Lacuna/DB/Result/Building.pm
@@ -582,7 +582,7 @@ sub can_build {
 
 sub can_build_on {
     my $self = shift;
-    if (!$self->isa('Lacuna::DB::Result::Map::Body::Planet') || $self->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
+    if (!$self->body->isa('Lacuna::DB::Result::Map::Body::Planet') || $self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
         confess [1009, 'Can only be built on habitable planets and gas giants.'];
     }
     return 1;
diff --git a/lib/Lacuna/DB/Result/Building/Module.pm b/lib/Lacuna/DB/Result/Building/Module.pm
index 5e965d2a..5d05508c 100644
--- a/lib/Lacuna/DB/Result/Building/Module.pm
+++ b/lib/Lacuna/DB/Result/Building/Module.pm
@@ -106,7 +106,7 @@ around can_repair => sub {
 
 sub can_build_on {
     my $self = shift;
-    if ($self->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
+    if ($self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
         confess [1009, 'Can only be built on space stations.'];
     }
     return 1;