xep 0114: wrap expressions in sugar

1 files changed, 2 insertions, 1 deletions

diff --git a/xep-0114.scm b/xep-0114.scm
index f882530..9b94408 100644
--- a/xep-0114.scm
+++ b/xep-0114.scm
@@ -1,5 +1,6 @@
 (define-module (gnubba xep-0114)
   #:use-module (gnubba sha1)
+  #:use-module (gnubba sugar)
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 regex)
   #:use-module (sxml simple)
@@ -76,7 +77,7 @@
                  ;; are evaluated in the xmpp monad.
                  (display "Registering handlers...\n")
                  (begin
-                   exp ...)
+                   (xmpp-> sock exp ...))
 
                  ;; Blocking wait for stanzas.  At this
                  ;; point, new handler can only be