optim bug (PR#9684)

In R you rarely need to pass additional arguments in programming as 
lexical scoping can be used to capture them.

You can also use currying, like this:

	ll <- function(data) function(params)
	{
		# compute whatever you want with data and params.
	}

Then you can call optim like this:

	optim(initial.param, ll(some.data))

Cheers,
Andrew