UIView.SelectDocument Failing?

Since moving to from Client 7 and XP to 8.5.1 and Windows 7 an issue has developed.

The issue is this: In a parent doc there is an action button that uses an @Command to first save the parent document and then an @PostedCommand to create a reposnse doc. During the query save the code below is run that should close the parent doc and select it in the view. Thus when the @PostedCommand creates the repose it will inherit fields from the selected doc. This is NOT happening in 8.5.1. For some reason when the response is created it is using the document that was last selected.

Sub GotoView(uidoc As NotesUIDocument, CurrentDoc As NotesDocument)

’ Code to take user back to the newly created doc in the view it was created from

Dim uidb As NotesUIDatabase

Dim uiview As notesuiview

Set uidb = ws.CurrentDatabase

vnam = CurrentDoc.CurView(0)

If uidb Is Nothing Then

	Call ws.OpenDatabase( Currentdoc.ParentDatabase.Server, CurrentDoc.ParentDatabase.FileName, "1. Main Doc View", , False, True )		

End If

Call uidb.openview(vnam,,False) 

Set uiview = ws.Currentview

If CurrentDoc.IsNewNote Then

	Call CurrentDoc.Save(True,False)

End If

Call uidoc.close

Call uiview.selectdocument(CurrentDoc)	

End Sub