diff --git a/src/AutGroup.jl b/src/AutGroup.jl
index d84c56a..de918b8 100644
--- a/src/AutGroup.jl
+++ b/src/AutGroup.jl
@@ -282,8 +282,7 @@ function reduce!(W::AutGroupElem)
     else
         reduced = false
         while !reduced
-            reduced = simplify_perms!(W)
-            reduced = join_free_symbols!(W)
+            reduced = simplify_perms!(W) && free_reduce!(W)
             deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
         end
     end