diff --git a/test/run-tests.sh b/test/run-tests.sh
index c324aecbe7e0cfecef64248b5a92a3d121a4e8fd..82866ce5806782234bac82b00477a7a3fc567f6d 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -5,6 +5,18 @@
 # - quit with exit status 0 on getting eof
 # - quit with exit status >0 if an unhandled error occurs
 
+usage () {
+    echo "$0 [lisp invocation] [scripts-regex]"
+    echo " - read lisp forms one at a time from matching scripts"
+    echo " - quit with exit status 0 on getting eof"
+    echo " - quit with exit status >0 if an unhandled error occurs"
+    echo " you need to supply the .script in the second argument"
+    echo " lisps include sbcl, clisp, allegro and allegromodern"
+    echo "OPTIONS:"
+    echo "    -d -- debug mode"
+    echo "    -u -h -- show this message."
+}
+
 unset DEBUG_ASDF_TEST
 
 while getopts "duh" OPTION
@@ -38,18 +50,6 @@ fi
 
 sok=1
 
-usage () {
-    echo "$0 [lisp invocation] [scripts-regex]"
-    echo " - read lisp forms one at a time from matching scripts"
-    echo " - quit with exit status 0 on getting eof"
-    echo " - quit with exit status >0 if an unhandled error occurs"
-    echo " you need to supply the .script in the second argument"
-    echo " lisps include sbcl, clisp, allegro and allegromodern"
-    echo "OPTIONS:"
-    echo "    -d -- debug mode"
-    echo "    -u -h -- show this message."
-}
-
 DO () { ( set -x ; "$@" ); }
 
 do_tests() {