R help - May 2011 - Problems with symbol in evaluate expression function in axis labels

Hi R-helps

I have the follow problem when try to put degree symbol in axis labels via
expression function in the next example code, but when put infinity in
expression put the degree symbol....

x<-sample(10);y<-sample(10)
plot(x,y,pch="+",axes=FALSE,ylab="",xlab="")
ax<-seq(1,10,by=2)
axis(1,at=ax,labels=parse(text=paste(ax,"*degree~W",sep="")))
axis(2,at=ax,labels=parse(text=paste(ax,"*infinity~S,sep="")),las=2)

Thank for all

This is my R version...

R> R.Version()
$platform
[1] "i686-pc-linux-gnu"

$arch
[1] "i686"

$os
[1] "linux-gnu"

$system
[1] "i686, linux-gnu"

$status
[1] ""

$major
[1] "2"

$minor
[1] "13.0"

$year
[1] "2011"

$month
[1] "04"

$day
[1] "13"

$`svn rev`
[1] "55427"

$language
[1] "R"

$version.string
[1] "R version 2.13.0 (2011-04-13)"

	[[alternative HTML version deleted]]