Here is universal fix for version 10 which works for all types of log plots:
fixLogPlots[gr_] := gr /. f : (Charting`ScaledTicks | Charting`ScaledFrameTicks)[{Log, Exp}] :> (Part[#, ;; , ;; 3] &@*f)
UPDATE 2
And here is universal fix for versions 8 and 9:
fixLogPlots[gr_] := gr /. f : (FrameTicks -> _) :> (f /. _Thickness :> (## &[]))