proc make_def {} {

	global base deff

	set sqlcmd "select o.id, c.colid, name, user_name(o.uid), text from \
	dbo.syscomments c, dbo.sysobjects o where o.id = c.id and o.type = 'D' \
	and o.id in (select id from syscomments where substring(text,1,7) = 'DEFAULT') \
	order by c.id, c.colid2, c.colid "

	doSQL 1

	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line id cid name own txt
	}

	puts stderr "I don't know what to do about making def yet."

	return def

}
	
