diff --git a/mathics/autoload/forms/StandardForm.m b/mathics/autoload/forms/StandardForm.m
index 820e7380d..3f2806e9d 100644
--- a/mathics/autoload/forms/StandardForm.m
+++ b/mathics/autoload/forms/StandardForm.m
@@ -10,12 +10,15 @@
 (* Change RadBox to RadicalBox. We use RadBox to make it clear that
    the below code was a read-in from a file and not some pre-existing
    code. *)
-RadicalBox[expr_, form_] = RadBox[MakeBoxes[expr, form], 3];
+Attributes[CommonRadicalBox] = HoldAll;
+Attributes[RadBox] = HoldAll;
+CommonRadicalBox[expr_, form_] = RadBox[MakeBoxes[expr, form], 3];
 
 (******************************************************************************************)
 (* StandardForm Boxing Rules                                                               *)
 (******************************************************************************************)
 
-MakeBoxes[CubeRoot[expr_], StandardForm] := RadicalBox[expr_, form_];
+MakeBoxes[CubeRoot[expr_], StandardForm] := CommonRadicalBox[expr, StandardForm];
 (*All the other StandardForm boxing routines... *)
+
 End[]