@@ -15,20 +15,20 @@
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
 ;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
-
-(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18)
-
-(declare (unit archive))
-(declare (uses db))
-(declare (uses common))
-
-(include "common_records.scm")
-(include "db_records.scm")
-
+;; 
+;; (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18)
+;; 
+;; (declare (unit archive))
+;; (declare (uses db))
+;; (declare (uses common))
+;; 
+;; (include "common_records.scm")
+;; (include "db_records.scm")
+;; 
 ;;======================================================================
 ;; 
 ;;======================================================================
 
 ;; NOT CURRENTLY USED
@@ -39,11 +39,11 @@
 	(maxload 1.5)   ;; max allowed load for this work
 	(adisks  (archive:get-archive-disks)))
     ;; get testdir size
     ;;   - hand off du to job mgr
     (if (and (common:file-exists? testdir)
-	     (file-is-writable? testdir))
+	     (file-writable? testdir))
 	(let* ((dused  (jobrunner:run-job 
 			flavor  ;; machine type
 			maxload ;; max allowed load
 			'()     ;; prevars - environment vars to set for the job
 			common:get-disk-space-used  ;; if a proc call it, if a string it is a unix command