Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -58,11 +58,11 @@
 GMOFILES = $(addprefix mofiles/,$(GMSRCFILES:%.scm=%.o))
 # compiled import files
 GMOIMPFILES = $(GMSRCFILES:%.scm=%.import.o)
 
 %.import.o : %.import.scm
-	csc -unit $*.import -c $*.import.scm -o $*.import.o
+	csc $(CSCOPTS) -unit $*.import -c $*.import.scm -o $*.import.o
 
 # mofiles/ducttape-lib.o : ducttape-lib.scm ducttape/*scm
 #	csc -I ducttape -J -c ducttape-lib.scm -o mofiles/ducttape-lib.o
 
 mofiles/%.o %.import.scm : %.scm

Index: runsmod.scm
==================================================================
--- runsmod.scm
+++ runsmod.scm
@@ -7162,11 +7162,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 #f #f #f)))) ;; BROKEN. testname itempath))))
+	(archive:allocate-new-archive-block #f #f #f #f #f #f #f)))) ;; BROKEN. testname itempath))))
 
 ;; allocate a new archive area
 ;;
 (define (archive:allocate-new-archive-block blockid-cache run-area-home testsuite-name dneeded target run-name test-name)
   (let ((key (conc testsuite-name "/" target "/" run-name "/" test-name)))