diff --git a/pkgs/racket-test-core/tests/racket/control.rktl b/pkgs/racket-test-core/tests/racket/control.rktl
index ef5ca4d9c5..2ba6778051 100644
--- a/pkgs/racket-test-core/tests/racket/control.rktl
+++ b/pkgs/racket-test-core/tests/racket/control.rktl
@@ -187,6 +187,12 @@
                  #:tag pt)))
        12)
 
+(ctest (let ([pt (make-continuation-prompt-tag)])
+         (+ 1 (% (fcontrol 5 #:tag pt)
+                 (λ (v k) (k v))
+                 #:tag pt)))
+       6)
+
 ;; ------------------------------------------------------------
 ;; spawn
 ;;  example from Queinnec & Serpete, POPL'91
diff --git a/racket/collects/racket/control.rkt b/racket/collects/racket/control.rkt
index d59f00ffb7..f3a07e6883 100644
--- a/racket/collects/racket/control.rkt
+++ b/racket/collects/racket/control.rkt
@@ -46,7 +46,8 @@
      (abort-current-continuation
       prompt-tag
       f
-      k))))
+      k))
+   prompt-tag))
 
 (define-syntax %
   (syntax-rules ()