From aa08d20a19b6f4382c1c2c88926d7a6fad88b956 Mon Sep 17 00:00:00 2001
From: Ben Breen <38701186+BenKBreen@users.noreply.github.com>
Date: Tue, 12 Dec 2023 15:05:14 -0500
Subject: [PATCH] Update recursion to reference CuspFormBasis

---
 ModFrmHilD/Basis.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ModFrmHilD/Basis.m b/ModFrmHilD/Basis.m
index edd1cb96..7ae72c93 100644
--- a/ModFrmHilD/Basis.m
+++ b/ModFrmHilD/Basis.m
@@ -159,7 +159,7 @@ intrinsic CuspFormBasisViaTrace(Mk::ModFrmHilD : IdealClassesSupport:=false, fai
   for dd in Old do
     chidd := Restrict(chi, dd, ii);
     Mkdd  := HMFSpace(M, dd, k, chidd);
-    B cat:= &cat[ Inclusion(f,Mk) : f in $$(Mkdd : IdealClassesSupport:=IdealClassesSupport) ];
+    B cat:= &cat[ Inclusion(f,Mk) : f in CuspFormBasis(Mkdd) ];
     // Remove linear dependent forms 
     B := (#B ne 0) select Basis(B) else B;
   end for;