diff --git a/contrib/jss/invoke.lisp b/contrib/jss/invoke.lisp
index 573727e..08b5032 100644
--- a/contrib/jss/invoke.lisp
+++ b/contrib/jss/invoke.lisp
@@ -324,7 +324,9 @@ CLASS-NAME may either be a symbol or a string according to the usual JSS convent
     :reader object
     ))
   (:report (lambda (c stream)
-             (error 'no-such-java-field :field-name field :object object))))
+             (format stream "Unable to find a FIELD named ~a for ~a"
+                     (field-name c) (object c))))
+  )
 
 (defun get-java-field (object field &optional (try-harder *running-in-osgi*))
   "Get the value of the FIELD contained in OBJECT.
@@ -338,8 +340,7 @@ If OBJECT is a symbol it names a dot qualified static FIELD."
              (jfield (if (java-object-p field)
                          field
                          (or (find-declared-field field class)
-                             (error "Unable to find a FIELD named ~a for ~a"
-                                    field object)))))
+                             (error 'no-such-java-field :field-name field :object object)))))
         (#"setAccessible" jfield +true+)
         (values (#"get" jfield object) jfield))
       (if (symbolp object)
@@ -364,8 +365,6 @@ all superclasses of CLASS.
   (find fieldname (#"getDeclaredFields" class)
         :key 'jfield-name :test 'equal))
 
-;; TODO use #"getSuperclass" and #"getInterfaces" to see whether there
-;; are fields in superclasses that we might set
 (defun set-java-field (object field value &optional (try-harder *running-in-osgi*))
   "Set the FIELD of OBJECT to VALUE.
 If OBJECT is a symbol, it names a dot qualified Java class to look for