set Design = ActiveDocument()

if Not Design Is Nothing then

	' Create and open a new ReportWriter object to do the reporting work.
	set Writer = NewReportWriter()
	strFullName = Design.BasePathName() + " (connections).txt"
	Writer.Open strFullName, "", false
	Writer.EndOfLine()

	Set Nets = Design.Nets()
	
	' Spin through the list of nets.
	for each Net in Nets
			if (Net.Class() Is Null) then
			Writer.Write(Net.Name)
			Writer.Write(" is null")
			Writer.EndOfLine
			
			end if
	next
	' Close out the report, then launch it in the appropriate viewer.
	Writer.Close()
	Writer.View()
else
	Message("No current design")
end if