Index: archive-inc.scm
==================================================================
--- archive-inc.scm
+++ archive-inc.scm
@@ -22,11 +22,11 @@
 ;; 
 ;;======================================================================
 
 ;; NOT CURRENTLY USED
 ;;
-(define (archive:main linktree target runname testname itempath options)
+#;(define (archive:main linktree target runname testname itempath options)
   (let ((testdir (conc linktree "/" target "/" runname "/" testname "/" itempatt))
 	(flavor  'plain) ;; type of machine to run jobs on
 	(maxload 1.5)   ;; max allowed load for this work
 	(adisks  (archive:get-archive-disks)))
     ;; get testdir size