diff --git a/src/program-events.lisp b/src/program-events.lisp
index 8c60f0e..381daa4 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -702,8 +702,8 @@
 
 (defmethod process-event ((object follow-user-event))
   (with-process-follower ((payload object) user-id db:all-followed-usernames)
-    (client:unfollow-user  user-id)
-    (db:remove-from-followers user-id)))
+    (client:follow-user  user-id)
+    (db:add-to-followers user-id)))
 
 (defclass unfollow-user-event (program-event) ())