No worries, it happens sometimes ;) Very similar solution!
If you have an older version of Mathematica (version <10). Use Flatten[......... ,1] instead of Catenate. And if you have a version <7 you don't have Log10 so you have to make your own...
Flatten[......... ,1]
Catenate
Log10
