diff --git a/src/content.lisp b/src/content.lisp
index dccb0b3..a4124ce 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -3,8 +3,8 @@
 ;; Tagging
 
 (defclass tag ()
-  ((name :initform nil :initarg :name :accessor tag-name)
-   (slug :initform nil :Initarg :slug :accessor tag-slug)))
+  ((name :initarg :name :reader tag-name)
+   (slug :initarg :slug :reader tag-slug)))
 
 (defun make-tag (str)
   "Takes a string and returns a TAG instance with a name and slug."
diff --git a/src/indexes.lisp b/src/indexes.lisp
index 2822e65..da1a307 100644
--- a/src/indexes.lisp
+++ b/src/indexes.lisp
@@ -1,9 +1,9 @@
 (in-package :coleslaw)
 
 (defclass index ()
-  ((slug :initform nil :initarg :slug :accessor index-slug)
-   (title :initform nil :initarg :title :accessor index-title)
-   (content :initform nil :initarg :content :accessor index-content)))
+  ((slug :initarg :slug :reader index-slug)
+   (title :initarg :title :reader index-title)
+   (content :initarg :content :reader index-content)))
 
 (defmethod render ((object index) &key prev next)
   (funcall (theme-fn 'index) (list :tags (all-tags)