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