bug in '*'

[RobinHankin]

as.free('a') * (1:10)
 [1] a    a^2  a^3  a^4  a^5  a^6  a^7  a^8  a^9  a^10
Warning message:
In if (n == 0) { :
  the condition has length > 1 and only the first element will be used
>