diff --git a/src/db.lisp b/src/db.lisp
index 73ce0ef..c518e08 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -38,7 +38,7 @@ smart enough to make the database fields into (values rows columns)"
 (dbfun insert-post (post_nr board flags)
        (dbi:do-sql conn
          (format nil "insert ignore into posts (post_nr, board) values (~a, '~a');" post_nr board))
-       (let ((post-id (cadr (dbi:fetch (dbi:execute (dbi:prepare conn "select id from posts where post_nr = 9999 and board = 'bant';"))))))
+       (let ((post-id (cadr (dbi:fetch (dbi:execute (dbi:prepare conn (format nil "select id from posts where post_nr = ~a and board = '~a';" post_nr board)))))))
          (dbi:do-sql conn
              (with-output-to-string (s)
                (format s "insert into postflags (post_nr, flag) values")