diff --git a/src/common/kernel/movement.c b/src/common/kernel/movement.c
index ea0d4d999..adb78a158 100644
--- a/src/common/kernel/movement.c
+++ b/src/common/kernel/movement.c
@@ -2018,11 +2018,13 @@ void
 movement(void)
 {
 	region *r;
+	int ships;
 
 	/* Initialize the additional encumbrance by transported units */
 	init_drive();
 
-	for (r = regions; r; r = r->next) {
+	/* move ships in last phase, others first */
+	for (ships=0;ships<=1;++ships) for (r = regions; r; r = r->next) {
 		unit ** up = &r->units;
 		/* Bewegungen.
 		 *
@@ -2058,9 +2060,20 @@ movement(void)
 					set_string(&u->thisorder, "");
 					up = &u->next;
 				} else {
-					move(r, u, true);
-					set_string(&u->thisorder, "");
-					up = &r->units;
+					boolean moved = true;
+					if (ships) {
+						if (u->ship && fval(u, FL_OWNER)) move(r, u, true);
+						else moved=false;
+					} else {
+						if (u->ship==NULL || !fval(u, FL_OWNER)) move(r, u, true);
+						else moved=false;
+					}
+					if (moved) {
+						set_string(&u->thisorder, "");
+						up = &r->units;
+					} else {
+						up = &u->next;
+					}
 				}
 				break;
 			default:
diff --git a/src/common/kernel/save.c b/src/common/kernel/save.c
index 833af2cc6..dff94286d 100644
--- a/src/common/kernel/save.c
+++ b/src/common/kernel/save.c
@@ -1622,7 +1622,9 @@ readunit(FILE * F)
 		u->irace = new_race[(race_t)ri(F)];
 	} else {
 		rs(F, buf);
+		if (strcmp(buf, "giant turtle")==0) strcpy(buf, "giantturtle");
 		u->race = rc_find(buf);
+		assert(u->race);
 		rs(F, buf);
 		if (strlen(buf)) u->irace = rc_find(buf);
 		else u->irace = u->race;
diff --git a/src/common/kernel/unit.c b/src/common/kernel/unit.c
index 23747ff36..7278e9097 100644
--- a/src/common/kernel/unit.c
+++ b/src/common/kernel/unit.c
@@ -644,6 +644,7 @@ can_survive(const unit *u, const region *r)
 void
 move_unit(unit * u, region * r, unit ** ulist)
 {
+	int maxhp = unit_max_hp(u);
 	assert(u && r);
 
 	if (u->region == r) return;
@@ -660,6 +661,7 @@ move_unit(unit * u, region * r, unit ** ulist)
 	u->faction->first = 0;
 	u->faction->last = 0;
 	u->region = r;
+	u->hp = u->hp * unit_max_hp(u) / maxhp;
 }
 
 /* ist mist, aber wegen nicht skalierender attirbute notwendig: */