@@ -105,19 +105,19 @@
 (define (tasks:server-set-available mdb run-id)
   (sqlite3:execute 
    mdb 
    "INSERT INTO servers (pid,hostname,port,pubport,start_time,      priority,state,mt_version,heartbeat,   interface,transport,run_id)
                    VALUES(?, ?,       ?,   ?, strftime('%s','now'), ?,       ?,    ?,-1,?,        ?,        ?);"
-   (current-process-id)       ;; pid
-   (get-host-name)            ;; hostname
-   -1                         ;; port
-   -1                         ;; pubport
-   (random 1000)              ;; priority (used a tiebreaker on get-available)
-   "available"                ;; state
-   (common:version-signature) ;; mt_version
-   -1                         ;; interface
-   "http"                     ;; transport
+   (current-process-id)          ;; pid
+   (get-host-name)               ;; hostname
+   -1                            ;; port
+   -1                            ;; pubport
+   (random 1000)                 ;; priority (used a tiebreaker on get-available)
+   "available"                   ;; state
+   (common:version-signature)    ;; mt_version
+   -1                            ;; interface
+   (conc (server:get-transport)) ;; transport
    run-id
    ))
 
 (define (tasks:num-in-available-state mdb run-id)
   (let ((res 0))