diff --git a/collects/tests/mzscheme/function.ss b/collects/tests/mzscheme/function.ss
index 4accf21600..c3cbd9dc18 100644
--- a/collects/tests/mzscheme/function.ss
+++ b/collects/tests/mzscheme/function.ss
@@ -102,6 +102,10 @@
 (test 3 (rec (f x) x) 3)
 (test 2 (rec (f x) (if (= x 3) (f 2) x)) 3)
 (test 2 (rec (f x . y) (car y)) 1 2 3)
+(test 2 'no-duplications (let ([x 1]) (rec ignored (begin (set! x (+ x 1)) void)) x))
+(test 'f object-name (rec (f x) x))
+(test 'f object-name (rec (f x . y) x))
+(test 'f object-name (rec  f (lambda (x) x)))
 (test (list 2) (rec (f . x) (if (= (car x) 3) (f 2) x)) 3)
 
 (report-errs)