lObject not recognized in TCL script

When I run the program (below) I get the following error message:

Capture> source [file normalize {c:/Cadence/SPB_16.3/tools/capture/tclscripts/BEIUtils/BEIListProps.tcl}]

Capture> BEIListProps::UserProps
[    1]can't read "lObject": no such variable

Any idea what could cause this error?  The program is basically copied out of the manual.  Other snippets copied out of the manual work.  I can iterate through schematic pages, etc, but something about the use of the lObject type seems to be causing a problem.

 

package require capAppUtils
package require Tcl 8.4
package require DboTclWriteBasic 16.3.0
package require Tk
package provide BEIListProps 1.0

namespace eval BEIListProps {
  variable BEIListProps;
}

proc BEIListProps::UserProps {args} {

  set lStatus [DboState]
  set lNullObj NULL
  set lPropsIter [$lObject NewUserPropsIter $lStatus]
  #get the first user property on the object
  set lUProp [$lPropsIter NextUserProp $lStatus]
  while {$lUProp !=$lNullObj } {
    #placeholder: do your processing on $lUProp
    set lName [DboTclHelper_sMakeCString]
    set lValue [DboTclHelper_sMakeCString]
    $lUProp GetName $lName
    $lUProp GetStringValue $lValue
    puts "$lName = $lValue"
    set lUProp [$lPropsIter NextUserProp $lStatus]
  }
  delete_DboUserPropsIter $lPropsIter
}