proc make_pro {} {

	global base prof

	set ps ""

        set sqlcmd "select id, name, user_name(uid) from sysobjects where \
        type = 'P' and userstat & -32768 != -32768"
	set sqt sysobjects
        doSQL 1
        while {1} {
                set line [sybNext 1]
                if {$line == ""} {break}
                lassign $line oi nam own
                lappend ps $oi
                set pnames($oi) $nam
                set pown($oi) $own
                set own
        }

        set lown dbo

	if {$ps == ""} {
		puts stderr "OUCH no procedures at all in $base"
		return
	}

        foreach p $ps {

        set own $pown($p)
        set nam $pnames($p)

        puts $prof "drop procedure $nam\ngo\n"


        set txt ""
        set sqlcmd "select colid, text from dbo.syscomments where id  = $p \
        order by colid"
        doSQL 1
        while {1} {
                set line [sybNext 1]
                if {$line == ""} {break}
                lassign $line cid text
                append txt "$text "
        }

#	as it turns out, you need that space.

        set txt [string trimright $txt]

        if {$lown != $own} {
                puts $prof "setuser $own"
                set lown $own
        }

        puts $prof "$txt\n\ngo\n"


        }

        return pro



}
	
