@@ -24,10 +24,12 @@
      matchable regex posix (srfi 18) extras ;; tcp 
      (prefix nanomsg nmsg:)
      (prefix sqlite3 sqlite3:)
      pkts (prefix dbi dbi:)
      )
+(use posix-extras pathname-expand files)
+
 
 (declare (unit common))
 (declare (uses commonmod))
 (import commonmod)
 
@@ -210,12 +212,10 @@
 
 ;; Miscellaneous
 (define *triggers-mutex*     (make-mutex))     ;; block overlapping processing of triggers
 (define *numcpus-cache* (make-hash-table))
 
-(use posix-extras pathname-expand files)
-
 ;; this plugs a hole in posix-extras in recent chicken versions > 4.9)
 (let-values (( (chicken-release-number chicken-major-version)
                (apply values
                       (map string->number
                            (take
@@ -722,13 +722,10 @@
 ;; 	(begin
 ;; 	  (hash-table-set! *common:denoise* key currtime)
 ;; 	  #t)
 ;; 	#f)))
 
-(define (common:get-megatest-exe)
-  (or (getenv "MT_MEGATEST") "megatest"))
-
 (define (common:read-encoded-string instr)
   (handle-exceptions
    exn
    (handle-exceptions
     exn
@@ -1046,26 +1043,10 @@
 (define (common:get-disks #!key (configf #f))
   (hash-table-ref/default 
    (or configf (read-config "megatest.config" #f #t))
    "disks" '("none" "")))
 
-;;======================================================================
-;; return first command that exists, else #f
-;;
-(define (common:which cmds)
-  (if (null? cmds)
-      #f
-      (let loop ((hed (car cmds))
-		 (tal (cdr cmds)))
-	(let ((res (with-input-from-pipe (conc "which " hed) read-line)))
-	  (if (and (string? res)
-		   (common:file-exists? res))
-	      res
-	      (if (null? tal)
-		  #f
-		  (loop (car tal)(cdr tal))))))))
-  
 (define (common:get-install-area)
   (let ((exe-path (car (argv))))
     (if (common:file-exists? exe-path)
 	(handle-exceptions
 	 exn