Second level DIPART negative index causes crash in LIST^DIC.

Select VA FILEMAN CHANGE NO.:    14706  OCT 11,2013
   C6+20^DICUIX2             Second level DIPART index causes crash i
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no
Computed
 Fields

NO.: 14706                              VERSION: 22.3T0
  TAG: C6+20                            ROUTINE NAME OR GLOBAL REF: DICUIX2
  REPORTER: STEVE MCPHALEAN             DATE CHANGED: OCT 11,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Second level DIPART index causes crash in LIST^DIC
  NEW VERSION: <22.3T0>
 DETAILED TESTING INSTRUCTIONS:
 Before:
 dev>S DSIWPART="",DSIWPART(1)="",DSIWPART(2)=-2045

 dev>DO LIST^DIC(50.68,,".01","",44,.DSIWFROM,.DSIWPART,"AMASTERVUID")
 %GTM-E-UNDEF, Undefined local variable: DINDEX(2,FROM)
                 At M source location CLEAN+2^DICLIX

 After:
 dev>S DSIWPART="",DSIWPART(1)="",DSIWPART(2)=-2045

 dev>DO LIST^DIC(50.68,,".01","",44,.DSIWFROM,.DSIWPART,"AMASTERVUID")