diff --git a/alterator-fbi/interfaces/guile/ahttpd/translate.scm b/alterator-fbi/interfaces/guile/ahttpd/translate.scm

index c6cdf17..8c0adca 100644

--- a/alterator-fbi/interfaces/guile/ahttpd/translate.scm

+++ b/alterator-fbi/interfaces/guile/ahttpd/translate.scm

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

 (define-module (alterator ahttpd translate)

   :use-module (srfi srfi-1)

   :use-module (srfi srfi-13)

+  :use-module (ice-9 control)

   :use-module (alterator str)

   :use-module (alterator algo)

   :use-module (alterator ahttpd)

@@ -13,7 +14,7 @@

 ;; i18n

 (define (find-po-domain scm)

-  (call-with-current-continuation

+  (call-with-escape-continuation

    (lambda(return)

      (template scm

                (tag: "html"

diff --git a/alterator-fbi/interfaces/guile/ahttpd/workflow.scm b/alterator-fbi/interfaces/guile/ahttpd/workflow.scm

index 5a0aaa8..200396d 100644

--- a/alterator-fbi/interfaces/guile/ahttpd/workflow.scm

+++ b/alterator-fbi/interfaces/guile/ahttpd/workflow.scm

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

 (define-module (alterator ahttpd workflow)

   :use-module (srfi srfi-13)

   :use-module (srfi srfi-2)

+  :use-module (ice-9 control)

   :use-module (alterator str)

   :use-module (alterator algo)

   :use-module (alterator plist)

@@ -15,7 +16,7 @@

 ;;; new style template processing

 (define (template-wf scm)

-  (call-with-current-continuation

+  (call-with-escape-continuation

    (lambda(return)

      (template scm

                (tag: "html"

diff --git a/alterator-fbi/interfaces/guile/workflow/acc.scm b/alterator-fbi/interfaces/guile/workflow/acc.scm

index 7b5cfcd..20fe35a 100644

--- a/alterator-fbi/interfaces/guile/workflow/acc.scm

+++ b/alterator-fbi/interfaces/guile/workflow/acc.scm

@@ -2,6 +2,7 @@

   :use-module (srfi srfi-1)

   :use-module (srfi srfi-13)

   :use-module (ice-9 regex)

+  :use-module (ice-9 control)

   :use-module (alterator ahttpd)

@@ -18,7 +19,7 @@

   :export (workflow))

 (define (scm-content scm name)

-  (call-with-current-continuation

+  (call-with-escape-continuation

    (lambda(return)

      (template

       scm (tag: name (lambda (options content) (return content))))