Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2154,11 +2154,15 @@
     (sqlite3:execute db "PRAGMA synchronous = 0;")
     db))
 
 (define (db:no-sync-add-job db-in host-type vars-list exekey cmdline)
   (sqlite3:execute (db:no-sync-db db-in) "INSERT INTO jobs_queue (host_type,vars,exekey,cmdline,state,event_time,last_update) VALUES (?,?,?,?,?,?,?);"
-		   host-type vars-list exekey cmdline "waiting" (current-seconds)(current-seconds)))
+		   host-type
+		   (with-output-to-string
+		     (lambda ()
+		       (write vars-list)))
+		   exekey cmdline "waiting" (current-seconds)(current-seconds)))
 
 ;; find next job (waiting longest) that matches host-type - future, we'll find jobs that fit if no exact match
 (define (db:no-sync-take-job db-in host-type)
   (let* ((db   (db:no-sync-db db-in))
 	 (stmt1 "SELECT id,host_type,vars,exekey,cmdline,state,event_time,last_update FROM jobs_queue WHERE host_type=? AND state != 'taken' ORDER BY event_time ASC;")

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -1589,11 +1589,11 @@
 						      "-start-dir" *toppath*)))
 		   (adj-cmd     (conc (string-intersperse (map conc adjutant-runner-cmd) " ")
 				      "&")))         
 	      (rmt:no-sync-add-job
 	       (launch:ajt-host-type  ajtdat)
-	       (conc (launch:ajt-vars ajtdat))
+	       (launch:ajt-vars ajtdat)
 	       (launch:ajt-exekey     ajtdat)
 	       (launch:ajt-cmdline    ajtdat))
 	      (print "adj-cmd: " adj-cmd)
 	      (system adj-cmd)
 	      ))