diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp
index 1a8c4b1..e2964ac 100644
--- a/src/line-oriented-window.lisp
+++ b/src/line-oriented-window.lisp
@@ -493,6 +493,10 @@ this exact quantity would go beyond the length or rows or zero."
   table in the database, if `redraw`  is not nil redraw the object, if
   possible"))
 
+(defmethod resync-rows-db ((object null) &key redraw)
+  (declare (ignore redraw))
+  t)
+
 (defun make-blocking-list-dialog-window (screen all-fields text-lines callback
                                          &optional (title (_ "Information")))
   "Draw a  window with a scrollable list of entries, pressing enter