diff --git a/database/category.lisp b/database/category.lisp
index 70fb49b..0e902ae 100644
--- a/database/category.lisp
+++ b/database/category.lisp
@@ -6,7 +6,7 @@
 
 (mito:deftable category-split ()
   ((name :col-type (:varchar 128))
-   (category :col-type category))
+   (category :col-type category :accessor category-split-category))
   (:record-timestamps nil)
   (:conc-name category-split-))
 
diff --git a/database/run.lisp b/database/run.lisp
index 5b7d24b..a2d7cf1 100644
--- a/database/run.lisp
+++ b/database/run.lisp
@@ -1,11 +1,11 @@
 (mito:deftable run ()
-  ((category :col-type category))
+  ((category :col-type category :accessor run-category))
   (:record-timestamps nil)
   (:conc-name run-))
   
 (mito:deftable run-split ()
-  ((run :col-type run)
-   (category-split :col-type category-split)
+  ((run :col-type run :accessor run-split-run)
+   (category-split :col-type category-split :accessor run-split-category-split)
    (start-timestamp :col-type (or :bigint :null))
    (end-timestamp :col-type (or :bigint :null)))
   (:record-timestamps nil)