Notes/Domino 6 and 7 Forum : Script causes Client to crash

Notes 6 client crashes when script is executed from an action button running an Agent.
worked fine using Notes4.6.7 client.
NSD snipit and sample script below.

Am no script expert....any assistance would be greatly appreciated. Thanks in advance.

----NSD Snipit-----
############################################################
### FATAL THREAD 1/5 [ NLNOTES:fffbc585:fffa6ed1]
### FP=006fc6dc, PC=62658b1b, SP=006fc690, stksize=76
Exception code: c0000005 (ACCESS_VIOLATION)
############################################################
@[ 1] 0x62658b1b NLSXBE.ANotes::ANFormatFromClientHandle+427 (0,6fc72c,6fc724,6fc728)
@[ 2] 0x6265894c NLSXBE.ANotes::ANFormatFromVariant+92 (f15fdc,6fc72c,6fc724,6fc728)
@[ 3] 0x6266b535 NLSXBE.ANNote::ANNReplaceItem+53 (6fcc04,15834fc,15848bc,6fcb78)
@[ 4] 0x62645e62 NLSXBE.ANNote::ANDispatchMethod+162 (6fcc04,6fcbd4,e427a0,6fcc04)
@[ 5] 0x62642e9a NLSXBE._ANCLASSCONTROL@16+2074 (e35f38,109,6fcbb8,6fcc04)
@[ 6] 0x626431a9 NLSXBE._tag_NotesADTControl::ClassControl+25 (15848e8,e35f38,109,6fcbb8)
@[ 7] 0x60057f42 NNOTES.LSsInstance::AdtCallBack+226 (e35f38,62642680,109,e42784)
@[ 8] 0x6006e51d NNOTES.LScObjCli::ProdMethodCall+61 (e42744,497,1c80634,10003)
@[ 9] 0x6006e414 NNOTES.LSsThread::AdtDoProdCallout+164 (f1580c,e42744,10003,1c805e8)
@[10] 0x6006e32f NNOTES.LSsThread::AdtCallMethod+47 (4,1c81344,1,f1580c)
@[11] 0x60022212 NNOTES.LSsThread::NRun+6514 (f1580c,e3670c,e3670c,6fcd60)
@[12] 0x600229b6 NNOTES.LSsThread::Run+182 (f1580c,6fcd48,611fe1f0,e35f38)
@[13] 0x600b1c0a NNOTES.LSsInstance::Resume+26 (e35f38,0,6fcdc0,611a7d42)
@[14] 0x611fe1f0 NNOTESWS.LSEcInstance::ResumeClientScript+32 (e3670c,e3670c,2122528,2122a28)
@[15] 0x611a7d42 NNOTESWS.LSEcInstance::Resume+402 (e3670c,1,6fcde8,611c7e72)
@[16] 0x611fe09e NNOTESWS._LSEResume@4+14 (e3670c,2122a28,21224a8,0)
@[17] 0x611c7e72 NNOTESWS.CLSUIDocument::LoadObject+98 (2120001,2122a28,1,21224a8)
@[18] 0x611bfb70 NNOTESWS.CLSUIDocument::AddScriptObject+352 (21224ec,2122a28,1,1)
@[19] 0x615afcc1 NNOTESWS.CLSUIDocument::RunScript+369 (21224a8,1e3,6fce3c,6099e94c)
@[20] 0x60595341 NNOTES.CRawActionLotusScript::Run+577 (19ae,21224a8,19d5,6fcff8)
@[21] 0x60591b16 NNOTES.CRawAction::Run+54 (0,2122528,19d5,6fd014)
@[22] 0x605916d3 NNOTES.CRawAction::Execute+275 (1add648,1a40,6fd7fc,6058e194)
@[23] 0x6058e466 NNOTES.CAssistant::RunAlone+22 (236c8e8,2122528,2122528,0)
@[24] 0x6058e194 NNOTES.CAssistant::Run+3796 (1a56,6fda50,21226ca,236c8e8)
@[25] 0x615a12dd NNOTESWS._RunAssistantEx@28+493 (0,21226ca,0,1)
@[26] 0x61a95082 NNOTESWS.CThreadAssistTwi::WorkItem+242 (0,0,6fe0fc,6fe648)
@[27] 0x61a954c1 NNOTESWS._AssistantRunAgent@12+689 (6fe568,212,0,19cb0e8)
@[28] 0x6160d274 NNOTESWS.CDatabaseSelection::Command+2308 (212,14e818e,2118c28,6fe65c)
@[29] 0x6160f617 NNOTESWS.CDBWindowSelection::Command+759 (2118c28,6fe648,6fe71c,0)
@[30] 0x612c6c3b NNOTESWS.CSelectionManager::ProcessCommand+1179 (1,4006001d,84,6fe698)
@[31] 0x612c6042 NNOTESWS._NEMProcessCommandExt@16+34 (4006001d,84,0,6fe8f8)
@[32] 0x61698bed NNOTESWS.HSCToolsRunMacro+93 (fa2,14e818e,6fe8e8,6fe8f8)
@[33] 0x61697e94 NNOTESWS.HandleSpecialCases+2820 (60b70fa2,14e818e,6fe8e8,6fe8f8)
@[34] 0x616972ff NNOTESWS._DeskTranslateActionAndExecute@40+495 (f01c0148,0,60b70fa2,14e818e)
@[35] 0x61608f3a NNOTESWS._DeskExecutePostedCommands@4+474 (14e0001,6ff4a8,13c0608,431)
@[36] 0x616094e3 NNOTESWS._ExecuteMacro@16+675 (e0000,0,f01c0148,0)
@[37] 0x611ac973 NNOTESWS._DeskNEMMessage@24+627 (0,404,431,0)
@[38] 0x61185120 NNOTESWS.CDeskSubprogram::SubMessageProc+240 (106a96c,431,0,13c0608)
@[39] 0x611847ee NNOTESWS._MainWndProc@16+6926 (404,431,0,13c0608)
[40] 0xbff7363b KERNEL32 (32678524,3267,0,bff719b8)
[41] 0xbff94407 KERNEL32 (6ffe28,bff7186d,84fe365f,0)
[42] 0x006f851e (8d000000,5f042464,3d896466,e)

----Script Sample-----
Sub Initialize
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim dbQuote As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim TempQuoteUnitDoc As NotesDocument
Dim j As Integer
Dim B As NotesItem
Dim C As NotesItem
Dim D As NotesItem
Dim Item1 As NotesItem
Dim Item2 As NotesItem
Dim Item3 As NotesItem
Dim a As String
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set dateTime = New NotesDateTime( "Today" )
Set TempQuoteUnitDoc = db.CreateDocument
Set dbQuote = session.GetDatabase(db.Server,"Service\DatabaseName.nsf")
Set newdoc = dbQuote.CreateDocument
TempQuoteUnitDoc.Form = "TempQuoteUnit"
For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
Set B = doc.GetFirstItem("SerialNbr")
Set C = doc.GetFirstItem("ModelNbr")
Set D = doc.GetFirstItem("ExchPartNbr")
bb = "SerialNbr1_" + Cstr(j)
cc = "ModelNbr_"+ Cstr(j)
dd = "ExchPartNbr_"+ Cstr(j)
Set Item1 = TempQuoteUnitDoc.ReplaceItemValue(bb,B)
Set Item2 = TempQuoteUnitDoc.ReplaceItemValue(cc,C)
Set Item3 = TempQuoteUnitDoc.ReplaceItemValue(dd,D)
Call TempQuoteUnitDoc.Save(True,True)
Call session.UpdateProcessedDoc( doc )
Next
Call Workspace.DialogBox( "TempQuoteUnit", True, True, False, True, False, False, "New Quote", TempQuoteUnitDoc)
Call TempQuoteUnitDoc.Save(True,True)
Call TempQuoteUnitDoc.CopyAllItems(newdoc,True)
Call newdoc.Save(True,False)
Call TempQuoteUnitDoc.Remove(True)
End Sub