diff --git a/src/testgen/core.clj b/src/testgen/core.clj
index 7f5298a..ebd0357 100644
--- a/src/testgen/core.clj
+++ b/src/testgen/core.clj
@@ -1,11 +1,9 @@
 (ns testgen.core)
 
-(defn foo
-  "I don't do a whole lot."
-  [x]
-  (println x "Hello, World!"))
-
 (defn write-test [fnname arg] 
-     (list 'is (list '= (list fnname arg) (eval (list fnname arg)))))
+     (try
+     	(list 'is (list '= (list fnname arg) (eval (list fnname arg))))
+	(catch Exception e (list 'is (list 'thrown? (.getClass e) (list fnname arg))))))
+
 
 (defn testgen [fndef] nil)