@@ -93,11 +93,11 @@
      (lambda (run-id test-name item-path logf)
        (db:test-set-log! db run-id test-name item-path logf)))
 
     (set! *rpc:listener* rpc:listener)
     (on-exit (lambda ()
-	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" ipaddr:port)
+	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" ipaddrstr:port)
 	       (sqlite3:finalize! db)))
     (thread-start! th1)
     (thread-join! th1))) ;; rpc:server)))
 
 (define (server:find-free-port-and-open port)