geesh...I hate this... anyway here is the correct fix. (wish I could edit messages here)

Remove this in the script:
' Diverter Prep
Diverter.IsDropped=1

In the script, look for this:

Sub SolDiverterHold(Enabled)
If Enabled Then
Diverter.IsDropped=0
Else
Diverter.IsDropped=1
End If
End Sub

and change it to this:
Sub SolDiverterHold(Enabled)
If Enabled Then
Diverter.IsDropped=1
Else
Diverter.IsDropped=0
End If
End Sub

That will fix the R ramp diverter.