--- library.scm.2207-finalizer	2006-02-17 14:51:37.000000000 -0600
+++ library.scm	2006-02-17 14:56:38.000000000 -0600
@@ -1644,7 +1644,7 @@
     (##sys#check-string filename 'delete-file)
     (##sys#pathname-resolution
      filename
-     (lambda (name)
+     (lambda (filename)
        (unless (eq? 0 (##core#inline "C_delete_file" (##sys#make-c-string filename)))
 	 (##sys#update-errno)
 	 (##sys#signal-hook #:file-error 'delete-file (##sys#string-append "can not delete file - " strerror) filename) ) )
@@ -1656,10 +1656,13 @@
     (##sys#check-string new 'rename-file)
     (##sys#pathname-resolution
      old
-     (lambda (name)
-       (unless (eq? 0 (##core#inline "C_rename_file" (##sys#make-c-string old) (##sys#make-c-string new)))
-	 (##sys#update-errno)
-	 (##sys#signal-hook #:file-error 'rename-file (##sys#string-append "can not rename file - " strerror) old new) ) )
+     (lambda (old)
+       (##sys#pathname-resolution
+	new
+	(lambda (new)
+	  (unless (eq? 0 (##core#inline "C_rename_file" (##sys#make-c-string old) (##sys#make-c-string new)))
+	    (##sys#update-errno)
+	    (##sys#signal-hook #:file-error 'rename-file (##sys#string-append "can not rename file - " strerror) old new) ) ) ) )
      #:rename new) ) )