diff --git a/src/content.lisp b/src/content.lisp
index 78d16a0..a37efc7 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -39,7 +39,11 @@
 
 (defun slugify (string)
   "Return a version of STRING suitable for use as a URL."
-  (remove-if-not #'slug-char-p (substitute-if #\- #'unicode-space-p string)))
+  (let ((slugified (remove-if-not #'slug-char-p 
+                                  (substitute-if #\- #'unicode-space-p string))))
+	(if (zerop (length slugified))
+            (error "Post title '~a' does not contain characters suitable for a slug!" string 
+            slugified)))
 
 ;; Content Types