That's how it works, entity colors, not bylayer.
The easy worksaround is:
(setq ss (ssget "All"))
(command "change" ss "" "P" "c" "Bylayer" "")
Or, from the command line:
CHANGE <enter> All <enter> <enter> P <enter> C <enter> Bylayer <enter> <enter>
Tim Corey
MicroCAD Training and Consulting, Inc.
Redding, CA
Autodesk Gold Reseller
New knowledge is the most valuable commodity on earth. -- Kurt Vonnegut