From bf0c9c5e9af0c8fdf68f589c3b3e11a3eef310e3 Mon Sep 17 00:00:00 2001
From: Claus Fieker <fieker@mathematik.uni-kl.de>
Date: Wed, 18 Sep 2024 09:44:24 +0200
Subject: [PATCH] fix factor bug, #1609

---
 src/Misc/Integer.jl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Misc/Integer.jl b/src/Misc/Integer.jl
index ab24bf87ab..f1d4b5fc37 100644
--- a/src/Misc/Integer.jl
+++ b/src/Misc/Integer.jl
@@ -298,7 +298,7 @@ function factor_insert!(r::Dict{ZZRingElem,Int}, N::ZZRingElem, scale::Int=1)
   end
   fac, N = is_perfect_power_with_data(N)
   if fac > 1
-    return factor_insert!(r, N, fac)
+    return factor_insert!(r, N, fac * scale)
   end
   if is_prime(N)
     @assert !haskey(r, N)