diff --git a/RMarkovBlanket.r b/RMarkovBlanket.r
index e388943..8d0c9da 100644
--- a/RMarkovBlanket.r
+++ b/RMarkovBlanket.r
@@ -296,6 +296,7 @@ for(k in d:2){
 				break
 			}
 		}
+		Pathlisting[[d]] <- append(Pathlisting[[d]],ship)
 			
 	}
 	modship <- ship %% 3
@@ -395,6 +396,6 @@ for(k in d:2){
 	}
 	
 	ship <- intship
+	Pathlisting[[(k - 1)]] <- c(prevar, ship)
 	
-	Pathlisting[[(k - 1)]] <- prevar
 }