diff --git a/tests/database.scm b/tests/database.scm
index b87b4500c4de48781088cf4339c1a51ce5efc8b2..ec77ba4596dd7b8b207cfedee989c6b924d5e202 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -83,7 +83,7 @@
    (address "address")
    (machine "machine")
    (systems '("a" "b"))
-   (last-seen "1")))
+   (last-seen 1)))
 
 (define %db
   (make-parameter #f))