RPTA Application Reports Error in 9.1

After upgrading to 9.1 recently we can't use our Application Reports because of this.

Error compiling Business Rule 'RPTA_SolutionHelper'. 1) Error at line 13635:  Type expected. 

This line is causing the error.
Dim dataWcfService As New Data()

Even if I were to fix that line the next line would be wrong because there aren't any overloads that accept a GUID for the GetFXRateType function. 

        Private Function GetMemberPropertyGuidValueAsText(ByVal si As SessionInfo, ByVal objPropEnumTypeItem As PropEnumTypeItem, ByVal storedGuidValue As Guid) As String
            Try

                If (Not objPropEnumTypeItem Is Nothing) Then

                    Dim editorType As XFDataColumnEditorType = objPropEnumTypeItem.EditorType

                    If (editorType = XFDataColumnEditorType.WorkflowChannel) Then
                        If (storedGuidValue <> Guid.Empty) Then
                            Dim wfWcfService As New Workflow()
                            Dim wfChannel As WorkflowChannel = wfWcfService.GetWorkflowChannel(si, storedGuidValue)
                            If (Not wfChannel Is Nothing) Then
                                Return wfChannel.Name
                            End If
                        End If

                    ElseIf (editorType = XFDataColumnEditorType.SecurityGroup) Then
                        Dim securityGroup As Principal = EngineSecurity.GetGroupOrExclusionGroup(si, storedGuidValue)
                        If (Not securityGroup Is Nothing) Then
                            Return securityGroup.Name
                        End If

                    ElseIf (editorType = XFDataColumnEditorType.FxRateType) Then
                        Dim dataWcfService As New Data() '<===ERROR HERE
                        Dim objFxRateType As FxRateType = dataWcfService.GetFxRateType(si, storedGuidValue) 
                        If (Not objFxRateType Is Nothing) Then
                            Return objFxRateType.Name
                        End If

                    Else
                        Return storedGuidValue.ToString()
                    End If
                End If

                Return String.Empty

            Catch ex As Exception
                Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
            End Try
        End Function