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

index f2bd440..a773183 100644

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

+++ b/alterator/interfaces/guile/algo.scm

@@ -2,8 +2,10 @@

   :use-module (srfi srfi-1)

   :use-module (srfi srfi-11)

   :use-module (srfi srfi-2)

-  :re-export (->bool)

-  :export (

+  :use-module (ice-9 control)

+  :export (->bool

+           call-with-current-continuation

+           call/cc

            ;;public

            cond-car

            cond-cadr

@@ -150,3 +152,13 @@

 (define (dynamic-require library sym)

   (let ((module (resolve-module library)))

     (and module (module-ref module sym #f))))

+

+;; Implement call/cc in terms of shift

+(define (call-with-current-continuation p)

+  (let ((st (current-dynamic-state)))

+    (shift k

+      (with-dynamic-state st

+        (lambda ()

+          (p k))))))

+

+(define call/cc call-with-current-continuation)

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

index 72af7f8..23f5d34 100644

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

+++ b/alterator/interfaces/guile/telegraph.scm

@@ -1,6 +1,7 @@

 (define-module (alterator telegraph)

   :use-module (alterator algo)

   :use-module (alterator exit-handler)

+  :use-module (ice-9 control)

   :export (telegraph telegraph-start))

 (define *modules* #f)

@@ -16,6 +17,8 @@

 (define (telegraph-run cmd modules)

   (if (null? modules)

       cmd

-      ((car modules)

+      ((lambda (cmd next)

+         (reset

+          ((car modules) cmd next)))

        cmd

        (lambda(cmd) (telegraph-run cmd (cdr modules))))))

diff --git a/alterator/interfaces/guile/exit-handler.scm b/alterator/interfaces/guile/exit-handler.scm

index 38a3ca0..022eced 100644

--- a/alterator/interfaces/guile/exit-handler.scm

+++ b/alterator/interfaces/guile/exit-handler.scm

@@ -1,4 +1,5 @@

 (define-module (alterator exit-handler)

+  :use-module (ice-9 control)

   :export (with-exit-handler

            at-exit))

@@ -14,7 +15,8 @@

   (with-throw-handler

     #t

     (lambda()

-      (proc)

+      (reset

+       (proc))

       (run-at-exit))

     (lambda args

       (run-at-exit)