diff --git a/doc/asdf.texinfo b/doc/asdf.texinfo
index a07f633a51c0ee7f26fb34602d8c3134fae38ace..a6b1196e1e530dbbbf5dfc18ccc33553e4860868 100644
--- a/doc/asdf.texinfo
+++ b/doc/asdf.texinfo
@@ -2202,7 +2202,6 @@ RELATIVE-COMPONENT-DESIGNATOR :=
     PATHNAME | ;; pathname unless last component, directory is assumed.
     :IMPLEMENTATION | ;; a directory based on implementation, e.g. sbcl-1.0.32.30-linux-x86-64
     :IMPLEMENTATION-TYPE | ;; a directory based on lisp-implementation-type only, e.g. sbcl
-    :CURRENT-DIRECTORY | ;; all components of the current directory, without the :absolute
     :UID | ;; current UID -- not available on Windows
     :USER ;; current USER name -- NOT IMPLEMENTED(!)
 
diff --git a/test/test-configuration.script b/test/test-configuration.script
index d0e312018b5a705b3310d068bcb8470d0d1573da..d6621079533e0775e9ccb36778ec0626ec6c1a6e 100644
--- a/test/test-configuration.script
+++ b/test/test-configuration.script
@@ -70,11 +70,14 @@
 (create-asd-files)
 (create-conf-files)
 
-#+abcl (trace directory)
-
 (initialize-source-registry
  `(:source-registry (:include ,(under-test-directory "conf.d/"))
                     :ignore-inherited-configuration))
+
+#+abcl
+(when (find-system :foo3 nil)
+  (format t "~&Great news: ABCL can now find system FOO3 in a subdirectory!~%"))
+
 #-abcl ;; disable for ABCL for now. Hmmm. We need a better way to handle "known failures".
 (assert
  (equal (namestring (system-relative-pathname :foo3 "bar/baz.lisp"))