diff --git a/src/GroupRings.jl b/src/GroupRings.jl
index 31bbff1..c8ffbc2 100644
--- a/src/GroupRings.jl
+++ b/src/GroupRings.jl
@@ -136,6 +136,14 @@ function (RG::GroupRing)(X::GroupRingElem)
    return RG(X.coeffs)
 end
 
+function (RG::GroupRing)(X::GroupRingElem, emb::Function)
+    result = RG(eltype(X.coeffs))
+    for g in parent(X).basis
+        result[emb(g)] = X[g]
+    end
+    return result
+end
+
 ###############################################################################
 #
 #   Basic manipulation