diff --git a/src/program-events.lisp b/src/program-events.lisp
index 7d2c20a..14ee6f8 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -574,7 +574,11 @@
       (let ((dump (with-output-to-string (stream)
                     (tooter::present status stream))))
         (dbg "fetch single status ~a" dump))
-      (db:update-db status :folder folder :timeline timeline))))
+      (db:update-db status :folder folder :timeline timeline)
+      (when (tooter:parent status)
+        (db:update-db (tooter:parent status)
+                      :folder folder
+                      :timeline timeline)))))
 
 (defparameter *search-next-saved-event* nil)