1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 6b1f567f..566a1877 100644
--- a/eval.c
+++ b/eval.c
@@ -3048,7 +3048,7 @@ static val transform_op(val forms, val syms, val rg)
 
     /* This handles improper list forms like (a b c . @42)
        when the recursion hits the @42 part. */
-    if (fi == var_s && integerp(car(re))) {
+    if (fi == var_s && (integerp(car(re)) || car(re) == rest_s)) {
       cons_bind (outsyms, outforms, transform_op(cons(forms, nil), syms, rg));
       return cons(outsyms, rlcp(car(outforms), outforms));
     }