diff --git a/src/posts.lisp b/src/posts.lisp
index 5c25ea7..39d7f96 100644
--- a/src/posts.lisp
+++ b/src/posts.lisp
@@ -9,14 +9,15 @@
 
 (defmethod initialize-instance :after ((object post) &key)
   (with-slots (url title author excerpt format text) object
-    (setf url (compute-url object (slugify title))
-          format (make-keyword (string-upcase format))
-          text (render-text text format)
-          excerpt (or excerpt
-                      (first (split (excerpt-sep *config*)
-                                    (render-text text format)
-                                    :limit 2)))
-          author (or author (author *config*)))))
+    (let ((post-content (render-text text format)))
+      (setf url (compute-url object (slugify title))
+            format (make-keyword (string-upcase format))
+            excerpt (or excerpt
+                        (first (split (excerpt-sep *config*)
+                                      post-content
+                                      :limit 2)))
+            text post-content
+            author (or author (author *config*))))))
 
 (defmethod render ((object post) &key prev next)
   (funcall (theme-fn 'post) (list :config *config*