diff --git a/test/run-tests.sh b/test/run-tests.sh
index 2c389daefc932a376b338da444a9d98a427a5d81..a170ec7b34155e0e05da711e3a2d835304354616 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -171,21 +171,18 @@ if [ -z "${DEBUG_ASDF_TEST}" ] ; then
   command="$command $nodebug"
 fi
 
-create_asds () {
-    mkdir -p {conf.d,dir1,dir2/{dir3,dir4}}
-    for i in dir1 dir2; do touch "$i"/test.asd; done
-    for i in dir3 dir4; do (cd dir2/$i; touch test.asd); done
+create_config () {
+    mkdir -p ../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d
 }
 
 clean_up () {
-    rm -rf {conf.d,dir?}
+    rm -rf ../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d
 }
 
-
 if [ -z "$command" ] ; then
     echo "Error: cannot find or do not know how to run Lisp named $lisp"
 else
-    create_asds
+    create_config
     mkdir -p results
     echo $command
     thedate=`date "+%Y-%m-%d"`
diff --git a/test/test-utilities.script b/test/test-utilities.script
index 19eacc18a3cfdb0866f078710dfb421adc70bdf2..a7216d5d20d5b9507603edb41da9b0efe89f01b4 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -23,4 +23,10 @@
    (make-pathname :name nil :type "bar" :directory '(:absolute "tmp"))
    (make-pathname :name "." :type nil :directory '(:absolute "tmp"))
    (make-pathname :name "." :type "" :directory '(:absolute "tmp")))))
+(assert
+ (asdf::version-satisfies (asdf:asdf-version) (asdf:asdf-version)))
+(assert
+ (asdf::version-satisfies (asdf:asdf-version) "1.608"))
+(assert
+ (not (asdf::version-satisfies (asdf:asdf-version) "666")))
 )