Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -235,13 +235,13 @@
 	 
 	 ;; some sanity checks, move an existing path out of the way
 	 ;;
 	 (if (and prev-test-physical-path
 		  (file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in?
-	     (let ((base (pathname-directory prev-test-physical-path))
-		   (dirn (pathname-file      prev-test-physical-path))
-		   (newn (conc base "/." dirn)))
+	     (let* ((base (pathname-directory prev-test-physical-path))
+		    (dirn (pathname-file      prev-test-physical-path))
+		    (newn (conc base "/." dirn)))
 	       (debug:print 0 "ERROR: the old directory " prev-test-physical-path ", still exists! Moving it to " newn)
 	       (file-move prev-test-physical-path newn)))
 
 	 (if archive-path ;; no point in proceeding if there is no actual archive
 	     (begin