diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp
index dcaafc6..a6e84ad 100644
--- a/src/coleslaw.lisp
+++ b/src/coleslaw.lisp
@@ -25,7 +25,7 @@ If RAW is non-nil, write the content without wrapping it in the base template."
   "Compile the blog to a STAGING directory as specified in .coleslawrc."
   ; TODO: More incremental compilation? Don't regen whole blog unnecessarily.
   (when (probe-file staging)
-    (cl-fad:delete-directory-and-files staging))
+    (run-program "rm -R ~a" staging))
   (ensure-directories-exist staging)
   (with-current-directory staging
     (dolist (dir (list (app-path "themes/~a/css" (theme *config*))
diff --git a/src/feeds.lisp b/src/feeds.lisp
index 7d785f7..5aacc59 100644
--- a/src/feeds.lisp
+++ b/src/feeds.lisp
@@ -17,7 +17,8 @@
 
 (defun render-feeds ()
   "Render and write the feed for the site."
-  (let* ((posts (subseq (by-date (hash-table-values *posts*)) 0 10))
+  (let* ((bydate (by-date (hash-table-values *posts*)))
+	 (posts (subseq bydate 0 (when (>= (length bydate) 10) 10)))
          (content (loop for post in posts
                      collect (list :title (post-title post)
                                    :url (post-url post)