diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm
index 00c87eb3..a4f9a3bf 100644
--- a/lib/chibi/filesystem.scm
+++ b/lib/chibi/filesystem.scm
@@ -1,5 +1,5 @@
 ;; filesystem.scm -- additional filesystem utilities
-;; Copyright (c) 2009-2011 Alex Shinn.  All rights reserved.
+;; Copyright (c) 2009-2012 Alex Shinn.  All rights reserved.
 ;; BSD-style license: http://synthcode.com/license.txt
 
 ;;> The fundamental directory iterator.  Applies @var{kons} to
@@ -51,7 +51,7 @@
 ;;> Unless optional arg @var{ignore-errors?} is true, raises an error
 ;;> if any file can't be deleted.
 
-(define (delete-directory-hierarchy dir . o)
+(define (delete-file-hierarchy dir . o)
   (let ((ignore-errors? (and (pair? o) (car o))))
     (if (member dir '("" "/"))
         (error "won't delete unsafe directory" dir))
diff --git a/lib/chibi/filesystem.sld b/lib/chibi/filesystem.sld
index dec92f20..d82ffdd7 100644
--- a/lib/chibi/filesystem.sld
+++ b/lib/chibi/filesystem.sld
@@ -10,7 +10,8 @@
           open-input-file-descriptor open-output-file-descriptor
           delete-file link-file symbolic-link-file rename-file
           directory-files directory-fold directory-fold-tree
-          delete-directory-hierarchy create-directory delete-directory
+          delete-file-hierarchy delete-directory
+          create-directory
           current-directory change-directory with-directory
           open open-pipe make-fifo
           file-status