diff --git a/utils.R b/utils.R
index 38582a3..a5a54cd 100644
--- a/utils.R
+++ b/utils.R
@@ -81,6 +81,9 @@ sma_load_data <- function(file) {
 	# At this time only solid tumors are important
 	sma <- filter(sma, diagnosis_type == "solid")
 
+	# Condense 'Ewing Sarcom'
+	levels(sma$diagnosis)[match("Ewing sarcoma", levels(sma$diagnosis))] <- "Ewing sarcoma / PNET"
+
 	# After filtering unused levels must be cleared from the data
 	sma <- droplevels(sma)