diff --git a/lib/Lacuna/Role/Ship/Send/Range.pm b/lib/Lacuna/Role/Ship/Send/Range.pm
index 12c0d228..bf0dc132 100644
--- a/lib/Lacuna/Role/Ship/Send/Range.pm
+++ b/lib/Lacuna/Role/Ship/Send/Range.pm
@@ -6,10 +6,10 @@ use Moose::Role;
 after can_send_to_target => sub {
     my ($self, $target) = @_;
 
-    my $distance = $self->body->calculate_distance_to_target($target);
+    my $distance = int($self->body->calculate_distance_to_target($target) +0.5);
     my $range = int($self->speed/100+0.5);
     if ($distance > $range) {
-      confess [1009, 'You only have a range of '.$range.' with this ship.'];
+      confess [1009, 'You only have a range of '.$range.' with this ship. This body is '.$distance.' away.'];
     }
 };
 
diff --git a/var/upgrades/3.0851.sql b/var/upgrades/3.0851.sql
new file mode 100644
index 00000000..ea768fdf
--- /dev/null
+++ b/var/upgrades/3.0851.sql
@@ -0,0 +1,2 @@
+
+update ships set speed = 700 where type = 'short_range_colony_ship';