diff --git a/Testing/JUnitExport.icl b/Testing/JUnitExport.icl
index 22936ed907b37290b920e6f5ab14da9e9bbb8694..6257765c82c4fdce55b0c64db21c2524a8fc56c3 100644
--- a/Testing/JUnitExport.icl
+++ b/Testing/JUnitExport.icl
@@ -64,6 +64,7 @@ where
 					CounterExamples ces  -> pluralisen English (length ces) "counterexample"
 					FailedChildren fcs   -> pluralisen English (length fcs) "failed child test"
 					Crashed              -> "crashed"
+					CustomFailReason r   -> r
 		Crashed
 			-> "Crashed"
 		CustomFailReason reason