diff --git a/R/allPatientsInfo.r b/R/allPatientsInfo.r
index cbfd8d9..59679a8 100644
--- a/R/allPatientsInfo.r
+++ b/R/allPatientsInfo.r
@@ -10,7 +10,7 @@ allPatientsInfo <- function(record, item) {
     sapply(record@patients, function(x) {
                       ifelse(is.null(slot(x, item)), 
                              stop("slot ", item, 
-                                  "cannot be found. Most porbably caused by missing patient"), 
+                                  "cannot be found. Most probably caused by missing patient"), 
                              slot(x, item))
                       })
 }