1 files changed, 4 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 59e9f3b8..a566cea8 100644
--- a/eval.c
+++ b/eval.c
@@ -4247,8 +4247,12 @@ static val me_flet_labels(val form, val menv)
     val func = car(funcs);
     val name = pop(&func);
     val params = pop(&func);
+    val orig = cons(sym, cons(name, nil));
     val lambda = cons(lambda_s, cons(params, func));
 
+    set_origin(lambda, orig);
+    rlcp(orig, form);
+
     ptail = list_collect (ptail, cons(name, cons(lambda, nil)));
   }