   (if (= 2 (count team-ids))
     (let [pair (map all-teams team-ids)]
       [pair (reverse pair)])
-    [(all-teams (:TeamId (first team-ids))) bye]))
+    [[(all-teams (first team-ids)) bye]]))
 
 (defn pairings-for-round
   [db round-id all-teams]

      (:PrimaryDciNumber person))))

(defn teams
  [db tournament-id]
  (let [team-table (db/table db "Team")
        teamplayer-table (db/table db "TeamPlayers")]

   :dci-numbers []})

(defn dcinumbers-for-players
  "Returns a list of DCI numbers for a list of players"
  [db players]
  (let [person-table (db/table db "Person")] 
    (for [player players
