@@ -76,11 +76,11 @@
 ;; state: 'live, 'shutting-down, 'dead
 (define (tasks:server-register mdb pid hostname port priority state)
   (sqlite3:execute 
    mdb 
    "INSERT OR REPLACE INTO servers (pid,hostname,port,start_time,priority,state) VALUES(?,?,?,strftime('%s','now'),?,?);"
-   pid hostname port priority state))
+   pid hostname port priority (conc state)))
 
 (define (tasks:server-deregister mdb hostname #!key (port #f)(pid #f))
   (if pid
       (sqlite3:execute mdb "DELETE FROM servers WHERE  hostname=? AND pid=?;" hostname pid)
       (if port
@@ -118,11 +118,11 @@
 
 (define (tasks:have-clients? mdb server-id)
   (null? (tasks:get-logged-in-clients mdb server-id)))
 
 (define (tasks:get-best-server mdb)
-  (let ((res '()))
+  (let ((res #f))
     (sqlite3:for-each-row
      (lambda (id hostname port)
        (set! res (list hostname port)))
      mdb
      "SELECT id,hostname,port FROM servers WHERE state='live' ORDER BY start_time DESC LIMIT 1;")