diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt
index 1e84e2cad0..f358015621 100644
--- a/collects/compiler/decompile.rkt
+++ b/collects/compiler/decompile.rkt
@@ -328,7 +328,8 @@
                                    (list
                                     (for/list ([pos (in-set tl-map)])
                                       (list-ref/protect (glob-desc-vars globs)
-                                                        (if (pos . < . (glob-desc-num-tls globs))
+                                                        (if (or (pos . < . (glob-desc-num-tls globs))
+                                                                (zero? (glob-desc-num-stxs globs)))
                                                             pos
                                                             (+ pos (glob-desc-num-stxs globs) 1))
                                                         'lam)))))))