Index: ducttape/ducttape-lib.scm
==================================================================
--- ducttape/ducttape-lib.scm
+++ ducttape/ducttape-lib.scm
@@ -44,13 +44,13 @@
      isodate->wwdate
      wwdate->seconds
      wwdate->isodate
      current-wwdate
      current-isodate
-     *this-exe-dir*
-     *this-exe-name*
-     *this-exe-fullpath*
+     ;; *this-exe-dir*
+     ;; *this-exe-name*
+     ;; *this-exe-fullpath*
      )
 
   (import scheme
 	  chicken.base
 	  chicken.condition
@@ -1101,13 +1101,13 @@
            
            ;;(foo (begin (print "hello "(find-exe "/bin/sh") #f)))
            (fullpath (or (find-exe this-script) (realpath this-script))))
       fullpath))
   
-  (define *this-exe-fullpath* (__get-this-script-fullpath))
-  (define *this-exe-dir*      (pathname-directory *this-exe-fullpath*))
-  (define *this-exe-name*     (pathname-strip-directory *this-exe-fullpath*))
+  ;; (define *this-exe-fullpath* (__get-this-script-fullpath))
+  ;; (define *this-exe-dir*      (pathname-directory *this-exe-fullpath*))
+  ;; (define *this-exe-name*     (pathname-strip-directory *this-exe-fullpath*))
   
 
 ;;;; utility procedures
 
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -24,13 +24,15 @@
 (declare (uses hostinfo))
 
 (declare (uses adjutant))
 (declare (uses archivemod))
 (declare (uses apimod))
+(declare (uses autoload))
 (declare (uses commonmod))
 (declare (uses configfmod))
 (declare (uses dbmod))
+(declare (uses dbi))
 (declare (uses ducttape-lib))
 (declare (uses ezstepsmod))
 (declare (uses http-transportmod))
 (declare (uses launchmod))
 (declare (uses mtargs))
@@ -109,10 +111,11 @@
 	  srfi-13
 	  srfi-98
 	  srfi-69
 
 	  ;; local modules
+	  autoload
 	  adjutant
 	  csv-xml
 	  ducttape-lib
 	  hostinfo
 	  mtver