diff --git a/src/myWebLog.Data/Post.fs b/src/myWebLog.Data/Post.fs
index c0a442d..d78a201 100644
--- a/src/myWebLog.Data/Post.fs
+++ b/src/myWebLog.Data/Post.fs
@@ -122,9 +122,9 @@ let tryFindPostByPermalink conn webLogId permalink =
 /// Try to find a post by its prior permalink
 let tryFindPostByPriorPermalink conn (webLogId : string) (permalink : string) =
   r.Table(Table.Post)
-    .GetAll(webLogId).OptArg("index", "webLogId")
-    .Filter(fun p -> p.["priorPermalinks"].Contains(permalink).And(p.["status"].Eq(PostStatus.Published)))
-    .Without("revisions")
+    .GetAll(webLogId).OptArg("index", "WebLogId")
+    .Filter(fun p -> p.["PriorPermalinks"].Contains(permalink).And(p.["Status"].Eq(PostStatus.Published)))
+    .Without("Revisions")
     .RunCursorAsync<Post>(conn)
   |> await
   |> Seq.tryHead
diff --git a/src/myWebLog.Data/SetUp.fs b/src/myWebLog.Data/SetUp.fs
index 0f4fd3c..676415d 100644
--- a/src/myWebLog.Data/SetUp.fs
+++ b/src/myWebLog.Data/SetUp.fs
@@ -55,12 +55,9 @@ let private ensureIndexes cfg (indexes : (string * (string * (ReqlExpr -> obj) o
   indexes
   |> List.iter ensureForTable
 
-/// Create an index on a single field
-let private singleField (name : string) : obj = upcast (fun row -> (row :> ReqlExpr).[name])
-
 /// Create an index on web log Id and the given field
 let private webLogField (name : string) : (ReqlExpr -> obj) option =
-  Some <| fun row -> upcast r.Array(row.["webLogId"], row.[name])
+  Some <| fun row -> upcast r.Array(row.["WebLogId"], row.[name])
 
 /// Ensure all the required indexes exist
 let private checkIndexes cfg =