@@ -68,11 +68,11 @@
 				 (list
 				  (vector-ref block 1)   ;; archive-area-name
 				  (vector-ref block 2))) ;; disk-path
 			       existing-blocks)))
     (or (common:get-disk-with-most-free-space candidate-disks dused)
-	(archive:allocate-new-archive-block testname itempath))))
+	(archive:allocate-new-archive-block #f #f #f)))) ;; BROKEN. testname itempath))))
 
 ;; allocate a new archive area
 ;;
 (define (archive:allocate-new-archive-block run-area-home testsuite-name dneeded)
   (let* ((adisks    (archive:get-archive-disks))