diff --git a/utils/uropa_summary.R b/utils/uropa_summary.R
index d42ba27..10d28fc 100755
--- a/utils/uropa_summary.R
+++ b/utils/uropa_summary.R
@@ -134,7 +134,7 @@ features <- c()
 	# stats is based on annoted peaks -> remove na rows
 	df.uropa.final[,"distance"] <- as.numeric(df.uropa.final[,"distance"])
 	df.uropa.final <- df.uropa.final[complete.cases(df.uropa.final),]
-	if(nrow(df.final)==0){
+	if(nrow(df.uropa.final)==0){
 		stop("No valid peak annotations with specified query/queries, summary unfeasible!")
 	}
 	anno.peaks <- nrow(df.uropa.final)