Index: adjutant.scm
==================================================================
--- adjutant.scm
+++ adjutant.scm
@@ -20,14 +20,28 @@
 
 (declare (unit adjutant))
 
 (module adjutant *
 
-(import scheme chicken data-structures extras files)
-(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69
-	md5 message-digest matchable
-	regex srfi-1)
+(import scheme)
+
+(cond-expand
+ (chicken-4
+
+  (import chicken data-structures extras files
+	  posix
+	  ))
+
+ (chicken-5
+  (import chicken.base
+	  chicken.process
+	  )
+  ))
+
+(import (prefix sqlite3 sqlite3:) typed-records srfi-18 srfi-69
+	  md5 message-digest matchable
+	  regex srfi-1)
 
 (define (adjutant-run host-type rmt:no-sync-take-job)
   (print "Running the adjutant!")
   (let loop ((wait-count 0))
     (if (< wait-count 10) ;; 6 x 10 seconds = one minute