Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -223,11 +223,14 @@
 				      (> (rmt:test-toplevel-num-items run-id test-name) 0)))
 	      (test-partial-path (conc target "/" run-name "/" (db:test-make-full-name test-name item-path)))
 	      ;; note the trailing slash to get the dir inspite of it being a link
 	      (test-path         (conc linktree "/" test-partial-path))
 	      ;; if the old path was not deleted then prev-test-physical-path will end up pointing to a real directory
-	      (prev-test-physical-path (if (file-exists? test-path) (read-symbolic-link test-path #t) #f))
+	      (prev-test-physical-path (if (file-exists? test-path)
+					   ;; (read-symbolic-link test-path #t)
+					   (common:real-path test-path)
+					   #f))
 
 	      (new-test-physical-path  (conc best-disk "/" test-partial-path))
 	      (archive-block-id        (db:test-get-archived test-dat))
 	      (archive-block-info      (rmt:test-get-archive-block-info archive-block-id))
 	      (archive-path            (if (vector? archive-block-info)

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -588,10 +588,13 @@
 	 (uname #f))
     (if (null? (car uname-res))
 	"unknown"
 	(caar uname-res))))
 
+(define (common:real-path inpath)
+  (with-input-from-pipe (conc "readlink -f " inpath) read-line))
+
 ;;======================================================================
 ;; D I S K   S P A C E 
 ;;======================================================================
 
 (define (common:get-disk-space-used fpath)