Problem simplifying logarithms.



I have a complex expression that contains things like

 log(((k[1]^2+2*k[1]*k[0]+k[0]^2)*D+z
+Gamma)^2/(((k[1]^2-2*k[1]*k[0]+k[0]^2)*D+z+Gamma)^2));

                          2              2                2
                       ((k  + 2 k  k  + k ) D + z + Gamma)
                          1      0  1    0
(%o44)             log(------------------------------------)
                          2              2                2
                       ((k  - 2 k  k  + k ) D + z + Gamma)
                          1      0  1    0

I'd like to factor the first term in the numerator and denominator, but
things like factorsum and factor don't do the trick, nor does the
map(factor..., %) versions.   

Additionally I'd like to move the overall square to outside the log
(i.e., 2 log ((...)/(...))).

I'm using yesterday's git master:

Maxima version: "branch_5_27_base_87_gdc4d1da"
Maxima build date: "2012-05-30 12:23:11"
Host type: "i686-pc-linux-gnu"
Lisp implementation type: "CLISP"
Lisp implementation version: "2.49 (2010-07-07) (built 3488645701)
(memory 3547383795)"

Thanks in advance.

David