diff --git a/collects/tests/mzscheme/optimize.ss b/collects/tests/mzscheme/optimize.ss
index 23188507b2..5207574569 100644
--- a/collects/tests/mzscheme/optimize.ss
+++ b/collects/tests/mzscheme/optimize.ss
@@ -459,6 +459,16 @@
   (set! i 10))
 (err/rt-test (dynamic-require 'bad-order #f))
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Check lifting of a function with only an unused rest arg:
+
+(test 1 'continue
+      (let/ec foo
+        (let ([continue (lambda extras
+                          (foo 1))])
+          (+ 1 (continue)))))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; call-with-values optimization