diff --git a/alterator-lookout/interfaces/guile/lookout.scm b/alterator-lookout/interfaces/guile/lookout.scm

index 4edd3e8..f7bbe54 100644

--- a/alterator-lookout/interfaces/guile/lookout.scm

+++ b/alterator-lookout/interfaces/guile/lookout.scm

@@ -9,6 +9,7 @@

   :use-module (alterator plist)

   :use-module (alterator str)

   :use-module (alterator woo)

+  :use-module (ice-9 control)

   ;;simplest message passing

   :use-module (alterator mailbox)

@@ -41,9 +42,10 @@

                      (begin

                        (set-lang session

                                  (string-cut (or (cond-plistq 'language url-args) "en_US") #\;))

-                       (start session

-                              (thunk (apply document:popup url url-args) (session-close)))

-                       (auth-permission-granted '(alterator-request action "re-get")))

+                       (reset

+                         (start session

+                                (thunk (apply document:popup url url-args) (session-close)))

+                         (auth-permission-granted '(alterator-request action "re-get"))))

                      '(auth-answer content ((command action "overflow")))))))

 ;;process incoming lookout message