*** parse1.yrl  Thu Jul 10 13:50:11 2008
--- parse8.yrl  Tue Oct 21 12:57:15 2008
***************
*** 744,749 ****
--- 744,752 ----
 normalise({op,_,'-',{char,_,I}}) -> -I;               %Weird, but compatible!
 normalise({op,_,'-',{integer,_,I}}) -> -I;
 normalise({op,_,'-',{float,_,F}}) -> -F;
+ %% Name/Arity case
+ normalise({op,_,'/',{atom,_,F},{integer,_,N}}) when N >= 0 ->
+     {F,N};
 normalise(X) -> erlang:fault({badarg, X}).

 normalise_list([H|T]) ->