diff --git a/grovel.lisp b/grovel.lisp
index 01d389d3deabdfdc5057e2ebc7faafe90f66495a..060dc8bd4d3c014032fc5bcfaa63da36d5f92eba 100644
--- a/grovel.lisp
+++ b/grovel.lisp
@@ -497,9 +497,8 @@
 
 ;; Used by maybe-translated-component-name and output-component-file.
 
-
 (defvar *asdf-has-sensible-component-names-p*
-  (ignore-errors (<= 1.367 (read-from-string asdf::*asdf-revision*))))
+  (and (find-symbol "*ASDF-VERSION*" :asdf) t))
 
 (defun strip/ (name)
   (subseq name (1+ (or (position #\/ name :from-end t) -1))))