More correct Mathics code for CuebRoot

My WL skills are not that good.

Author: rocky

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[]