diff --git a/hypo.hy b/hypo.hy
index a8e27b9..435a128 100755
--- a/hypo.hy
+++ b/hypo.hy
@@ -117,7 +117,8 @@ If no lexer is found fallback onto the text lexer."
 (defun delete-dir [self name]
   (let ((dirname (+ "files/" name)))
     (if (os.path.exists dirname)
-      (shutil.rmtree dirname)
+      (do (shutil.rmtree dirname)
+          (+ "Succesfully removed " name "\n"))
       (no-such-file))))
 
 (defun upload-file [self name]