                      {:type :fail, :message ~msg,
                       :expected '~form, :actual (class object#)}))]
        (if (:return env'#)
-         env'#
+         (assoc env'# :last-value result#)
          result#))))
 
 (defmethod assert-expr 'thrown? [env menv msg form]

                     {:type :fail, :message ~msg,
                      :expected '~form, :actual (list '~'not (cons '~pred values#))}))]
       (if (:return env'#)
         env'#
         result#))))

(defn assert-any

                         {:type :fail, :message ~msg,
                          :expected '~form, :actual e#}))]
           (if (:return env'#)
             (assoc env'# :last-value e#)
             e#))))))

(defmacro try-expr
