Index: hostinfo/hostinfo.scm
==================================================================
--- hostinfo/hostinfo.scm
+++ hostinfo/hostinfo.scm
@@ -82,11 +82,11 @@
 ;;; Utilities
    string->ip ip->string)
 
   (import chicken.fixnum chicken.string chicken.blob srfi-2 scheme
           typed-records srfi-9 chicken.foreign srfi-4 chicken.base
-	  foreigners
+	  foreigners system-information
 	  chicken.format)
 
   (define (vector-map p v0)   ; to avoid linking in vector-lib
     (let* ((len (vector-length v0))
            (v (make-vector len)))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -86,11 +86,11 @@
 
 		;; local modules
 		mutils
 		csv-xml
 		ducttape-lib
-		
+		hostinfo
 		)
 	
 ;; (include "common.scm")
 (include "megatest-version.scm")