diff --git a/extlib/benz/cont.c b/extlib/benz/cont.c
index 5fb0b06a..3ab1ea84 100644
--- a/extlib/benz/cont.c
+++ b/extlib/benz/cont.c
@@ -308,6 +308,7 @@ pic_init_cont(pic_state *pic)
 {
   pic_defun(pic, "call-with-current-continuation", pic_cont_callcc);
   pic_defun(pic, "call/cc", pic_cont_callcc);
+  pic_defun(pic, "escape", pic_cont_callcc);
   pic_defun(pic, "dynamic-wind", pic_cont_dynamic_wind);
 
   pic_defun(pic, "values", pic_cont_values);
diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm
index f0d988a5..f88c33ca 100644
--- a/piclib/picrin/base.scm
+++ b/piclib/picrin/base.scm
@@ -260,6 +260,7 @@
 
   (export call-with-current-continuation
           call/cc
+          escape
           dynamic-wind
           values
           call-with-values)
diff --git a/piclib/picrin/control.scm b/piclib/picrin/control.scm
index 51c6c7e7..5798655d 100644
--- a/piclib/picrin/control.scm
+++ b/piclib/picrin/control.scm
@@ -1,6 +1,3 @@
 (define-library (picrin control)
   (import (picrin base))
-
-  (define escape call/cc)               ; create a new global variable slot
-
   (export escape))