Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -371,57 +371,12 @@
     ;; extract logpro from testconfig and write them to files in test run dir
     (for-each
      (lambda (logprodat)
        (match logprodat
 	      ((name content)
-	       (debug:print-info 2 *default-log-port* "Creating logpro file "(current-directory)"/"name".logpro")
-	       (with-output-to-file (conc name".logpro")
-		 (lambda ()
-		   (print content)
-		   ;; (change-file-mode name (bitwise-ior perm/irwxg perm/irwxu))
-		   )))
-	      (else
-	       (debug:print-info 0 "Invalid logpro definiton found in [logpro] section of testconfig. \"" logprodat "\""))))
-     logpros)))
-
-;; read testconfig and create .logpro and script files
-;;    - use #f for tconfigreg to re-read the testconfigs from disk
-;;
-(define (launch:extract-scripts-logpro  test-dir test-name item-path tconfigreg-in)
-  (let* ((tconfigreg      (or tconfigreg-in
-			      (tests:get-all)))
-	 (tconfig-fname   (conc test-dir "/.testconfig"))
-	 (tconfig-tmpfile (conc tconfig-fname ".tmp"))
-	 (tconfig         (tests:get-testconfig test-name item-path tconfigreg #t force-create: #t)) ;; 'return-procs)))
-	 (scripts         (configf:get-section tconfig "scripts"))
-	 (logpros         (configf:get-section tconfig "logpro")))
-    ;; create .testconfig file
-    (configf:write-alist tconfig tconfig-tmpfile)
-    (file-move tconfig-tmpfile tconfig-fname #t)
-    (delete-file* ".final-status")
-    
-    ;; extract scripts from testconfig and write them to files in test run dir
-    (for-each
-     (lambda (scriptdat)
-       (match scriptdat
-	      ((name content)
-	       (debug:print-info 2 *default-log-port* "Creating script "(current-directory)"/"name)
-	       (with-output-to-file name
-		 (lambda ()
-		   (print content)))
-	       (change-file-mode name (bitwise-ior perm/irwxg perm/irwxu)))
-	      (else
-	       (debug:print-info 0 "Invalid script definiton found in [scripts] section of testconfig. \"" scriptdat "\""))))
-     scripts)
-
-    ;; extract logpro from testconfig and write them to files in test run dir
-    (for-each
-     (lambda (logprodat)
-       (match logprodat
-	      ((name content)
-	       (debug:print-info 2 *default-log-port* "Creating logpro file "(current-directory)"/"name)
-	       (with-output-to-file name
+	       (debug:print-info 2 *default-log-port* "Creating logpro file "(current-directory)"/"name ".logpro")
+               (with-output-to-file (conc name".logpro")
 		 (lambda ()
 		   (print content)
 		   ;; (change-file-mode name (bitwise-ior perm/irwxg perm/irwxu))
 		   )))
 	      (else