Fix fcontrol with prompt tag

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

racket/collects/racket/control.rkt

@@ -46,7 +46,8 @@
      (abort-current-continuation
       prompt-tag
       f
-      k))))
+      k))
+   prompt-tag))
 
 (define-syntax %
   (syntax-rules ()