diff --git a/JA2.vcproj b/JA2.vcproj
index a07803f7..3fc74829 100644
--- a/JA2.vcproj
+++ b/JA2.vcproj
@@ -43,7 +43,7 @@
 			<Tool
 				Name="VCLinkerTool"
 				AdditionalDependencies="libexpatMT.lib mss32.lib winmm.lib smackw32.lib fmodvc.lib"
-				OutputFile="C:\games\Jagged Alliance 2 v1.13\ja2_debug_v1.13.315_2006_06_30.exe"
+				OutputFile="C:\games\Jagged Alliance 2 v1.13\ja2_debug_v1.13.316_2006_06_30.exe"
 				LinkIncremental="2"
 				SuppressStartupBanner="TRUE"
 				AdditionalLibraryDirectories=".\..\..\Standard Gaming Platform\"
@@ -546,7 +546,7 @@
 			<Tool
 				Name="VCLinkerTool"
 				AdditionalDependencies="libexpatMT.lib winmm.lib smackw32.lib mss32.lib fmodvc.lib"
-				OutputFile="C:\Games\Jagged Alliance 2 v1.13\ja2_release_v1.13.315_2006_06_30.exe"
+				OutputFile="C:\Games\Jagged Alliance 2 v1.13\ja2_release_v1.13.316_2006_06_30.exe"
 				LinkIncremental="1"
 				SuppressStartupBanner="TRUE"
 				AdditionalLibraryDirectories=".\..\..\Standard Gaming Platform\"
diff --git a/TacticalAI/AIMain.cpp b/TacticalAI/AIMain.cpp
index 04f92c5b..a7a5cf0a 100644
--- a/TacticalAI/AIMain.cpp
+++ b/TacticalAI/AIMain.cpp
@@ -2828,6 +2828,8 @@ void SetNewSituation( SOLDIERTYPE * pSoldier )
 
 void HandleAITacticalTraversal( SOLDIERTYPE * pSoldier )
 {
+	UINT8 ubQuoteActionID = pSoldier->ubQuoteActionID;
+
 	HandleNPCChangesForTacticalTraversal( pSoldier );
 
 	if ( pSoldier->ubProfile != NO_PROFILE && NPCHasUnusedRecordWithGivenApproach( pSoldier->ubProfile, APPROACH_DONE_TRAVERSAL ) )
@@ -2855,7 +2857,44 @@ void HandleAITacticalTraversal( SOLDIERTYPE * pSoldier )
 	}
 	else
 	{								
-		ProcessQueenCmdImplicationsOfDeath( pSoldier );
+		int iMapX = gWorldSectorX;
+		int iMapY = gWorldSectorY;
+
+		switch( ubQuoteActionID )
+		{
+		case QUOTE_ACTION_ID_TRAVERSE_EAST:
+			++iMapX;
+			break;
+		case QUOTE_ACTION_ID_TRAVERSE_WEST:
+			--iMapX;
+			break;
+		case QUOTE_ACTION_ID_TRAVERSE_SOUTH:
+			++iMapY;
+			break;
+		case QUOTE_ACTION_ID_TRAVERSE_NORTH:
+			--iMapY;
+			break;
+		}
+	
+		SECTORINFO *pSectorInfo = &( SectorInfo[ SECTOR( iMapX, iMapY ) ] );
+
+		switch( pSoldier->ubSoldierClass )
+		{
+		case SOLDIER_CLASS_ELITE:
+			++pSectorInfo->ubNumElites;
+			break;
+
+		case SOLDIER_CLASS_ARMY:
+			++pSectorInfo->ubNumTroops;
+			break;
+
+		case SOLDIER_CLASS_ADMINISTRATOR:
+			++pSectorInfo->ubNumAdmins;
+			break;
+
+		}
+
+		ProcessQueenCmdImplicationsOfDeath( pSoldier );		
 		TacticalRemoveSoldier( pSoldier->ubID );
 	}
 	CheckForEndOfBattle( TRUE );