diff --git a/asdf.lisp b/asdf.lisp
index ee19a7705398ce563810e5d76754550eacbd32f7..946e7c48ded70d5900b72b918683e6b9fdbc5ceb 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -146,7 +146,8 @@
      ':asdf
      :use '(:common-lisp :asdf-utilities)
      :unintern '(#:*asdf-revision* #:around #:asdf-method-combination)
-     :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p)
+     :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p
+                    #:component-relative-pathname)
      :export
      '(#:defsystem #:oos #:operate #:find-system #:run-shell-command
        #:system-definition-pathname #:find-component ; miscellaneous
diff --git a/test/run-tests.sh b/test/run-tests.sh
index f3e4990a81c2205299113d9cc7ee7f9007d200e9..9555c6e63f0896660f17346523ce08bcdef5564d 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -134,7 +134,11 @@ case "$lisp" in
     nodebug="-batch"
     eval="-eval" ;;
   ecl)
-    command=ecl
+    #if [ -x /usr/lib/ecl/ecl-original ] ; then
+    #  command=/usr/lib/ecl/ecl-original
+    #else
+      command=ecl
+    #fi
     flags="-norc"
     eval="-eval" ;;
   lispworks)