diff --git a/collects/mzlib/control.ss b/collects/mzlib/control.ss
index ca925ba..409d2a1 100644
--- a/collects/mzlib/control.ss
+++ b/collects/mzlib/control.ss
@@ -1,6 +1,8 @@
 (module control mzscheme
 
-  (provide fcontrol %
+  (provide abort
+           
+           fcontrol %
 
            control prompt control-at prompt-at 
            ;; `-at' variations expect a prompt tag
@@ -16,6 +18,13 @@
 
            new-prompt set cupto)
 
+  ;; ----------------------------------------
+
+  (define (abort . vals)
+    (abort-current-continuation 
+     (default-continuation-prompt-tag)
+     (lambda () (apply values vals))))
+
   ;; ----------------------------------------
   ;; Sitaram, PLDI'93
   ;;  The `%' here is compable with Sitaram & Felleisen, LSC'90,