(def default-obj-tester
 #^{:doc 
"A tester that should cover most of the basic objects that seem 
non-dangerous enough - at least we think so. No promises!
Also some objects that are known to be dangerous."}
 (apply new-object-tester
	(concat
	 (map whitelist (vals save-objects))
	 (map blacklist (vals bad-objects)))))