diff --git a/r/GetBirthplace.R b/r/GetBirthplace.R
index c0dd8b3f6d87d97af17a6c5c152e6d895fb0cd56..227b5c129ab39afbf5a5988246836058d03747b3 100644
--- a/r/GetBirthplace.R
+++ b/r/GetBirthplace.R
@@ -22,7 +22,7 @@ getBirthplace <- function(article) {
   # get Born field
   birthplace <- infoBox[infoBox$Desc %like% "Born",]$Content
   
-  # remove everything before the round brackets
+  # remove everything before the "\n"
   # rest is birthplace
   birthplace <- gsub(".*\\\n", "", birthplace)