change lib name and cell name

Hi , 

my design contain standard cells from lib sc12sk_7m_v1 now I need to switch it to use standard cell from lib sc12tps_lvt_v1 . The cells name in sc12tps_lvt_v1 have "_l" at the end compare to cells name in sc12sk_7m_v1. I came up with a script below but it doesn't work and didn't give me any errors. Please let me know what is wrong 

thanks 

Nhumai 

procedure( NlsbfLibReplace(libraryName)
lib1 = ddGetObj(libraryName)
foreach( cell lib1->cells
   viewmatch = nil
   foreach( view (cell->views)
      if( (view->name == "schematic")  then  viewmatch = t )
   )

   if( (viewmatch == t) then
      win = geOpen(?window hiCreateWindow('default "graphics" "test1") ?lib libraryName ?cell cell->name ?view "schematic" ?viewType "schematic" ?mode "a")
      rep1 = getWindowRep(win)
      insts = rep1->instances
      foreach(instHeader cv~>instHeaders
             when(instHeader~>libName=="sc12sk_7m_v1" && rexExecute(instHeader~>cellName)
                  newCellName=strncat(instHeader~>cellName "_l" 1)
                  printf("The left coord is %L\n" newCellName)
                  dbSetInstHeaderMasterName(instHeader "sc12tps_lvt_v1" newCellName instHeader~>viewName)


      )
     )


      schHiCheckAndSave()
      hiCloseWindow(win)
   )
  )
)