Function windsorize() ignores outliers with low values 

Function windsorize() returns vector that has had only higher outliers windsorized, while the lower outliers remains as they are.
For example, if we have vector 
x<- (-20, 1, 2, 3, 4, 5, 6, 7, 8, 9, 20)
windsorize(x) will return
-20, 1, 2, 3, 4, 5, 6, 7, 8, 9, 9.
It should return the following:
-9.5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 14.5
