@@ -39,11 +39,11 @@
  (prefix dbi dbi:)
  (prefix sqlite3 sqlite3:)
  nanomsg)
 
 
-(use ducttape-lib)
+(import ducttape-lib)
 
 (include "megatest-fossil-hash.scm")
 
 (require-library stml)
 
@@ -832,11 +832,11 @@
       (with-output-to-file
 	  (conc pktsdir "/" uuid ".pkt")
 	(lambda ()
 	  (print pkt))))))
 
-;; (use trace)(trace create-run-pkt)
+;; (import trace)(trace create-run-pkt)
 (define (contains list x) (cond ((null? list) #f) ((eq? (car list) x) #t) (else (contains (cdr list) x))))
 
 ;; collect all needed data and create run pkts for contours with changed inputs
 ;;
 (define (generate-run-pkts mtconf toppath)
@@ -1337,11 +1337,11 @@
 				"") (if (member action '("-run" "-rerun-clean" "-rerun-all" "-kill-rerun"))
                                                         "-rerun DEAD,ABORT,KILLED"
                                                         ""))
 	  pkta)))
 
-;; (use trace)(trace pkt->cmdline)
+;; (import trace)(trace pkt->cmdline)
 
 (define (write-pkt pktsdir uuid pkt)
   (if pktsdir
       (with-output-to-file
 	  (conc pktsdir "/" uuid ".pkt")