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
@@ -1940,11 +1940,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)
@@ -3264,11 +3264,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
@@ -286,11 +286,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)))

Index: utils/show-uncalled-procedures.scm
==================================================================
--- utils/show-uncalled-procedures.scm
+++ utils/show-uncalled-procedures.scm
@@ -169,11 +169,16 @@
 		(let* ((fnname (conc (cadr dangler))))
 		  ;; (print "fnname="fnname" member: "(member fnname ignore-list))
 		  (if (not (hash-table-exists? ignores fnname))
 		      (apply print (intersperse  dangler "\t"))
 		      #;(print "skipping "fnname))))
-	      (sort danglers (lambda (a b)(< (car a)(car b)))))))
+	      (sort danglers (lambda (a b)
+			       (let ((ca (car a))
+				     (cb (car b)))
+				 (if (equal? ca cb)
+				     (string<=? (conc (cadr a))(conc (cadr b)))
+				     (< ca cb))))))))
 
     ;; (for-each print dangling-procs) ;; our product.
 
 (define (get-stats fn)
   (let* ((data  (with-input-from-pipe (conc "grep '"fn"' *.scm") read-lines))