Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -124,12 +124,10 @@
 
 (define (subrun:sanitize-path inpath)
   (let* ((insane-pattern (irregex "[^[a-zA-Z0-9_\\-]")))
     (regex#string-substitute insane-pattern "_" inpath #t)))
 
-(subrun:sanitize-path "a/b/c-d/e*f")
-
 (define (subrun:get-runarea test-run-dir)
   (if (subrun:subrun-test-initialized? test-run-dir)
       (let* ((info-alist (subrun:selector+log-alist
                           test-run-dir
                           "foo"))