diff --git a/src/common/gamecode/creport.c b/src/common/gamecode/creport.c
index 8fbae385a..1dddc40e6 100644
--- a/src/common/gamecode/creport.c
+++ b/src/common/gamecode/creport.c
@@ -621,11 +621,16 @@ cr_output_unit(FILE * F, const region * r,
 				/* faction info is hidden */
 				fprintf(F, "%d;Parteitarnung\n", i2b(fval(u, FL_PARTEITARNUNG)));
 			} else {
+				const attrib *a_otherfaction = a_find(u->attribs, &at_otherfaction);
+				const faction * otherfaction = a_otherfaction?get_otherfaction(a_otherfaction):NULL;
 				/* other unit. show visible faction, not u->faction */
 				fprintf(F, "%d;Partei\n", sf->no);
 				if (sf == f) {
 					fprintf(F, "1;Verraeter\n");
 				}
+				if (a_otherfaction && alliedunit(u, f, HELP_FSTEALTH)) {
+					fprintf(F, "%d;Anderepartei\n", otherfaction->no);
+				}
 			}
 		}
 		if (atyp) {
diff --git a/src/common/gamecode/report.c b/src/common/gamecode/report.c
index b921b0716..ca5fdd501 100644
--- a/src/common/gamecode/report.c
+++ b/src/common/gamecode/report.c
@@ -795,7 +795,6 @@ rpunit(FILE * F, const faction * f, const unit * u, int indent, int mode)
 	char marker;
 	strlist *S;
 	int dh;
-	faction *fv;
 	boolean isbattle = (boolean)(mode == see_battle);
 #ifdef USE_UGROUPS
 	ugroup *ug = findugroup(u);
@@ -818,7 +817,6 @@ rpunit(FILE * F, const faction * f, const unit * u, int indent, int mode)
 	}
 
 	a_otherfaction = a_find(u->attribs, &at_otherfaction);
-	fv = visible_faction(f,u);
 
 	if(u->faction == f) {
 		marker = '*';