I get this error when I do a build:

Compiling g:\foxpro devp\drawingpdm\pdm_class_definitions.prg
EndProc
Error in line 47: Nesting error.

My code:

Procedure option_class
Define Class OptionGroup1 As OptionGroup
Procedure Click
If This.Value = 0 Then
This.Value = 1
EndIf
pdm_var.filter_is_active = .F.
ThisForm.grid1.RecordSource = ""
ThisForm.Text1.Value = ""
ThisForm.myOGx.option_check.Value = 0
pdm_var.current_queue = ThisForm.ActiveControl.Caption

Select AllT(dmdrno) + " " + AllT(dmpchg) As dmdrno, StrTran(StrTran(AllT(dmtitle),Chr(13),""),Chr(10),""), StrTran(StrTran(AllT(progdescp),Chr(13),""),Chr(10),"") As progdescp, modelno, dmjobno, asstoflag, whatdrtype, dmdate, priority, cforpdf, signflag, rec1loc, status2, rejflag From drawlcttable Where AllT(dmlocation) == AllT(pdm_var.current_queue) InTo Cursor myCurrentQueue Order By status2, dmdrno

If AllT(pdm_var.v4typeofuser) <> 'Administrator' And pdm_var.make_assign_flag = .F. Then

Select * From myCurrentQueue Where AllT(asstoflag) == AllT(pdm_var.userid1) Or AllT(asstoflag) == Space(Len(AllT(asstoflag))) Into Cursor myCurrentQueue
EndIf

pdm_var.current_queue_count = Reccount("myCurrentQueue")

ThisForm.Caption = AllT(pdm_var.current_queue)+" Queue - "+AllT(Str(pdm_var.current_queue_count))+" Drawings!"

ThisForm.grid1.RecordSource = "myCurrentQueue"
If pdm_var.filter_is_active = .F. Then
ThisForm.grid1.SetFocus
If pdm_var.queue_record_number > pdm_var.current_queue_count Then
GoTo Top
ELse
Goto pdm_var.queue_record_number
EndIf
Else
ThisForm.grid1.SetFocus
Goto Top
EndIf
ThisForm.color_code_grid

ThisForm.Label2.Visible = .T.
ThisForm.Text1.Visible = .T.

ThisForm.Text1.Enabled = .T.
pdm_var.signoff_grid_position = ThisForm.myOGx.signoff_options.Value
ThisForm.clear_sort_indicator
ThisForm.Text1.SetFocus
EndProc
EndDefine
EndProc