ADDED   danglers-to-ignore.txt
Index: danglers-to-ignore.txt
==================================================================
--- /dev/null
+++ danglers-to-ignore.txt
@@ -0,0 +1,4 @@
+spublish:lst->path
+megatest-param->mtutil-param
+add-target-mapper
+add-runname-mapper

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1997,11 +1997,11 @@
 ;;    b. If test dir gone, delete the test record
 ;; 2. Look at run records
 ;;    a. If have tests that are not deleted, set state='unknown'
 ;;    b. ....
 ;;
-(define (db:clean-up-rundb dbdat)
+#;(define (db:clean-up-rundb dbdat)
   ;; (debug:print 0 *default-log-port* "WARNING: db clean up not fully ported to v1.60, cleanup action will be on megatest.db")
   (let* ((db         (db:dbdat-get-db dbdat))
 	 (count-stmt (sqlite3:prepare db "SELECT (SELECT count(id) FROM tests);"))
 	(statements
 	 (map (lambda (stmt)
@@ -3321,11 +3321,11 @@
 ;; tags: '("tag%" "tag2" "%ag6")
 ;;
 
 ;; done with run when:
 ;;   0 tests in LAUNCHED, NOT_STARTED, REMOTEHOSTSTART, RUNNING
-(define (db:estimated-tests-remaining dbstruct run-id)
+#;(define (db:estimated-tests-remaining dbstruct run-id)
   (db:with-db
    dbstruct
    run-id
    #f
    (lambda (db)

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -359,11 +359,11 @@
 	       servr))
     (if (and host port)
 	(conc host ":" port)
 	#f))))
 
-(define (server:get-client-signature) ;; BB> why is this proc named "get-"?  it returns nothing -- set! has not return value.
+#;(define (server:get-client-signature) ;; BB> why is this proc named "get-"?  it returns nothing -- set! has not return value.
   (if *my-client-signature* *my-client-signature*
       (let ((sig (server:mk-signature)))
         (set! *my-client-signature* sig)
         *my-client-signature*)))
 

Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -375,11 +375,11 @@
     res))
 
 ;;
 ;; Move to steps.scm
 ;;
-(define (tdb:get-compressed-steps comprsteps) ;; from tdb:get-steps-table
+#;(define (tdb:get-compressed-steps comprsteps) ;; from tdb:get-steps-table
   (map (lambda (x)
 	 ;; take advantage of the \n on time->string
 	 (vector
 	  (vector-ref x 0)
 	  (let ((s (vector-ref x 1)))