Need to finish calcLongestLine

Need to fix the following issue:
invalid command name "scaphoid2.surf"
    while executing
"$sca_surf getNumPoints"
    (procedure "_mbr_scaphoidPre.v2.tcl_calcLongestLine" line 21)
    invoked from within
"_mbr_scaphoidPre.v2.tcl_calcLongestLine "
Error while executing TCL command:

invalid command name "scaphoid2.surf"
    while executing
"$sca_surf getNumPoints"
    (procedure "_mbr_scaphoidPre.v2.tcl_calcLongestLine" line 21)
    invoked from within
"_mbr_scaphoidPre.v2.tcl_calcLongestLine "
    invoked from within
"$this calcLongestLine "
    (procedure "_mbr_scaphoidPre.v2.tcl_compute" line 78)
    invoked from within
"_mbr_scaphoidPre.v2.tcl_compute "
ERROR in scaphoidPre.v2.tcl::compute
invalid command name "scaphoid2.surf"
    while executing
"$sca_surf getNumPoints"
    (procedure "_mbr_scaphoidPre.v2.tcl_calcLongestLine" line 21)
    invoked from within
"_mbr_scaphoidPre.v2.tcl_calcLongestLine "
    invoked from within
"$this calcLongestLine "
    (procedure "_mbr_scaphoidPre.v2.tcl_compute" line 78)
    invoked from within
"_mbr_scaphoidPre.v2.tcl_compute "