diff --git a/env.scm b/env.scm
index 6d645f7..6fda293 100644
--- a/env.scm
+++ b/env.scm
@@ -387,7 +387,7 @@ by other environments made."
          (tree (environment-tree env))
          ;; TODO sanity check
          (current (environment-current env))
-         (layers-stack (environment-tag-layers env 'current)))
+         (layers-stack (environment-tag-layers env tag)))
 
     (when (or (not layers-stack) (null? layers-stack))
       (throw 'no-layers-stack-found))