
set main_interp [lsort [info commands ]]
# create interp
interp create -safe -- slave

set slave_interp [slave eval {lsort [info commands ] } ]

foreach cmd $main_interp { 
    if { $cmd ni $slave_interp } {
	puts "Slave interp does not have: $cmd"
    }
}
