Ok, I got it working by taking (LOAD "RENAMELAYOUT") out of my acaddoc.lsp file and using this in the scr file:
(setq laylist (layoutlist))
(foreach x laylist
(command "layout" "R" x (strcat x ".")))
I still wish there was a way to do this without using ScriptPro, because it causes another session of AutoCAD to be opened up. My "PURGED" lisp routine uses the current session of AutoCAD and opens and purges an entire directory of drawings. I still think there is a way to incorporate the "renamelayout" lisp routine, into the "purged" routine, so all I have to do is issue the command and it will open each drawing in any given directory and purge and rename the tabs. I just don't have the knoweledge to accomplish it.
But, thank you very much for your help, I couldn't have gotten this far without it.
Happy Holidays!!!