@@ -934,19 +934,23 @@
       (print "Running the adjutant!")
       (let loop ((wait-count 0))
 	(if (< wait-count 10) ;; 6 x 10 seconds = one minute
 	    (let* ((dat (rmt:no-sync-take-job host-type)))
 	      (match dat
-		((id ht vars exekey cmdline state event-time last-update)
-		 (call-with-environment-variables
-		  (with-input-from-string vars read)
-		  (lambda ()
-		    (system cmdline)))
-		 (loop 0))
-		(else
-		 (thread-sleep! 10)
-		 (loop (+ wait-count 1)))))
+		  ((id ht vars exekey cmdline state event-time last-update)
+		      (let ((vars-alist (with-input-from-string vars read)
+					))
+			(print "Vars:")
+			(pp vars-alist)
+			(call-with-environment-variables
+			 vars-alist
+			 (lambda ()
+			   (system cmdline))))
+		      (loop 0))
+		  (else
+		   (thread-sleep! 10)
+		   (loop (+ wait-count 1)))))
 	    (print "I'm bored. Exiting.")))
       ;; (adjutant-run (args:get-arg "-ajutant") rmt:no-sync-take-job)
       (set! *didsomething* #t)))
 
 (if (or (args:get-arg "-list-servers")