diff --git a/issuecomp-analysis.R b/issuecomp-analysis.R
index 1a6f9ae..269927a 100644
--- a/issuecomp-analysis.R
+++ b/issuecomp-analysis.R
@@ -45,9 +45,9 @@ for(d in 1:nrow(issues)) {
     curid <- as.character(tweets_curday$id_str[t])
     
     # Now test each single issue (not tag!)
-    for(i in 1:length(issuelist)) {
-      curtags <- as.character(issuelist[[i]])
-      curissue <- names(issuelist)[i]
+    for(i in 1:length(issueheads)) {
+      curissue <- issueheads[i]
+      curtags <- as.character(issuelist[[curissue]])  
       curfile <- str_c(id_folder,"/",curissue,".csv")
 
       # Now test all tags of a single issue