Manual repair of some edge cases.

code/modules/shuttle/emergency.dm

@@ -178,7 +178,7 @@
 	dwidth = 9
 	width = 22
 	height = 11
-	setDir(4)
+	dir = EAST
 	travelDir = -90
 	roundstart_move = "emergency_away"
 	var/sound_played = 0 //If the launch sound has been sent to all players on the shuttle itself
@@ -446,8 +446,7 @@
 	dwidth = 2
 	width = 8
 	height = 8
-	setDir(4)
-
+	dir = EAST
 	roundstart_move = "backup_away"
 
 /obj/docking_port/mobile/emergency/backup/New()

code/modules/shuttle/shuttle.dm

@@ -12,7 +12,7 @@
 	anchored = 1
 
 	var/id
-	setDir(NORTH		)//this should point -away- from the dockingport door, ie towards the ship
+	dir = NORTH//this should point -away- from the dockingport door, ie towards the ship
 	var/width = 0	//size of covered area, perpendicular to dir
 	var/height = 0	//size of covered area, paralell to dir
 	var/dwidth = 0	//position relative to covered area, perpendicular to dir

code/modules/shuttle/supply.dm

@@ -3,7 +3,7 @@
 	id = "supply"
 	callTime = 600
 
-	setDir(8)
+	dir = WEST
 	travelDir = 90
 	width = 12
 	dwidth = 5