diff --git a/chromatoR/app.R b/chromatoR/app.R
index a573223..cb278f9 100644
--- a/chromatoR/app.R
+++ b/chromatoR/app.R
@@ -236,7 +236,7 @@ server <- function(input, output) {
     
     if (!is.null(obj$seq) & input$old != ""){
       print(2)
-      alignament<-msaClustalW(c("Old"=toupper(input$old),"New"=obj_ab@primarySeq %>% as.character), type="dna")
+      alignament<-msaClustalW(c("Reference"=toupper(input$old),"Predicted"=obj_ab@primarySeq %>% as.character), type="dna")
       paste(capture.output(print(alignament, show="complete")), collapse="\n")
     }
   })