From 7e306420e6fe62ccc9ebea4afa95e395f141650a Mon Sep 17 00:00:00 2001
From: eta <eta@theta.eu.org>
Date: Mon, 28 Sep 2020 10:25:54 +0100
Subject: [PATCH] fix forward page detection

---
 stuff.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stuff.lisp b/stuff.lisp
index 168faa4..0c04435 100644
--- a/stuff.lisp
+++ b/stuff.lisp
@@ -312,7 +312,7 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
                            :reference-stanza-id (or
                                                  (whatscl::cassoc :after query-params)
                                                  (whatscl::cassoc :before query-params))
-                           :forward-page (whatscl::cassoc :after query-params))
+                           :forward-page (assoc :after query-params))
           (format *debug-io* "~&MAM query for ~A returned ~A messages (complete: ~A)" from (length messages) completep)
           (loop
             for msg in messages