Q:

How to handle 'Tag Arrow is Protected' message in Mathematica?

Background: To support my study of Galois Theory I want to calculate Galois Groups from polynomials. This functionality is not readily available in Mma so I inquired and was advised to use the galois package in Mma ( or otherwise Sage / Pari ). The galois package can be downloaded from this location. http://library.wolfram.com/infocenter/Articles/2872/ ( The Galois package was written in the Mma 3 era. )
When loading the package galois.m, Mma displayed the following messages:
<<galois.m
SetDelayed::write: Tag Arrow in Arrow[Color_,{{x1_,y1_},{x2_,y2_}}] is Protected. >>
SetDelayed::write: Tag Norm in Norm[Poly_,a_Symbol] is Protected. >>
SetDelayed::write: Tag Norm in Norm[Poly_,{a__Symbol}] is Protected. >>
General::stop: Further output of SetDelayed::write will be suppressed during this calculation. >>

Question: Is a simple Unprotect of Arrow ( and so on ) sufficient to handle this issue? ( I have not tried yet. I want to await expert advice first before modifying any standard package ).
EDIT:
There are still problems after refactoring to Arrow1 ( or ArrowFnc ). This has been tested on 
 CircleGraph[{a, b, c, d, -a, -b, -c, -d}, F];

( from the example in the accompanying notebook. )
does not produce a graph.
 CircleGraph[{a, b, c, d, -a, -b, -c, -d}, F]

( without ; ) produces a graph with additional text like FontForm[Symbol,18]. The arrows should contain only the text of the variables a,b,c and so on.
Further investigation shows that FontForm is terminally deprecated, this was not detected by Mma. See http://reference.wolfram.com/mathematica/ref/FontForm.html

A:

You just need to replace occurrences of Arrow with something like ArrowFcn, and occurrences of Norm with something like NormFcn.
Arrow and Norm must have been added to the built-in functions after the galois package was written, so alternative names need to be used in the package.

