Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -36,11 +36,11 @@
   (let* ((test-search-path   (tests:get-tests-search-path *configdat*)))
     (tests:get-valid-tests (make-hash-table) test-search-path)))
 
 (define (tests:get-tests-search-path cfgdat)
   (let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
-    (cons (conc *toppath* "/tests") paths)))
+    (append paths (list (conc *toppath* "/tests")))))
 
 (define (tests:get-valid-tests test-registry tests-paths)
   (if (null? tests-paths) 
       test-registry
       (let loop ((hed (car tests-paths))