Help on getting Library names for all instances on display form

 Hi guys,

 I tried some code to  get  Library names for all instances on display form. I get it  But Display form doesnot work properly .

 Error is shown below

 *Error* TrShapeReportToPort: too few arguments (2 expected, 1 given) - (db:246261804)

 cv = geGetEditCellView()
procedure( TrShapeReportToPort( cv outport )
cv = geGetWindowCellView( cv )
;cv = geGetEditCellView()
librarys=nil
fprintf(
outport
"%s %s %s contains library's:"
cv~>libName cv~>cellName cv~>viewName
)
foreach(libryname cv~>instances~>libName
foreach(singlelib librarys
if(singlelib!=libryname then
librarys=cons(libryname librarys)
)
)
)
foreach(libname librarys
fprintf( outport "\n%-10s %-10s" "Library" libname )
)
list( cv~>libName cv~>cellName cv~>viewName )
)

TrReportBBox = '((120 729) (372 876))
procedure( TrShapeReport( cv )
thePort = outfile( "/tmp/ShapeReport.txt" )
when( thePort
TrShapeReportToPort( cv thePort )
close( thePort )
) ; when
view( "/tmp/ShapeReport.txt" TrReportBBox "Librarys" )
) ; procedure
hiSetBindKey("Layout" "Ctrl<Key>1"      "TrShapeReportToPort(cv)")