diff --git a/RMarkovBlanket.r b/RMarkovBlanket.r
index 8d0c9da..3972433 100644
--- a/RMarkovBlanket.r
+++ b/RMarkovBlanket.r
@@ -159,8 +159,8 @@ Blanky <- function(MarkovDegree = 20, VariableStartName = "Alzheimer", VariableE
 			## which is just lPreVList * 3
 			PCCP <- 1
 			newsize <- (lPreVList * 3)
-			if(d > 3){
-				AllVarList[[d]] <- vector("list")
+			if(d > 1){
+				AllVarList[[d]] <- vector("list",length = newsize)
 			}
 			for(ef in 1:lPreVList){
 				##Finding the Parents