units.mac temperature conversion



~~~

How can the temperature conversion part of units.mac be made to work.

(%i1) matchdeclare(freeofdegreefahrenheit, freeof(degreefahrenheit));
tellsimpafter(freeofdegreefahrenheit*degreefahrenheit,
(freeofdegreefahrenheit+459.67)*degreekelvin/1.8) ;

matchdeclare(freeofdegreecelsius   , freeof(degreecelsius));
tellsimpafter(freeofdegreecelsius*degreecelsius,
             (freeofdegreecelsius+273.15)*degreekelvin) ;
(%o1) done 
(%o2) [*rule1,simptimes]
(%o3) done
(%o4) [*rule2,*rule1,simptimes]       
 
(%i5) 100*degreefahrenheit;           /* test, convert 100 F to K */ 
(%o5) 310.9277777777778*degreekelvin  /* ok */     

(%i7) 1*degreefahrenheit;             /* fail */    
(%o7) degreefahrenheit

(%i8) 0*degreefahrenheit;              /* fail */
(%o8) 0



Thanks
Ed

~~~