(when (and (defined? 'mred:frame%)
	   (defined? 'mred:console))
  (printf "wh"))