@@ -999,14 +999,11 @@
      (format #t fmtstr "DB" "host:port" "PID" "age" "last mod" "state")
      (for-each
         (lambda (dbfile)
           (let* (
             (dbfname (conc (pathname-file dbfile) ".db"))
-            (sfiles   (tt:find-server *toppath* dbfname))
             )
-            (for-each 
-              (lambda (sfile)
                 (let (
                   (sinfos (tt:get-server-info-sorted ttdat dbfname))
                   )
                   (for-each 
                      (lambda (sinfo)
@@ -1028,13 +1025,10 @@
                        )
                      )
                      sinfos
                   )
                 ) 
-              )
-              sfiles
-            )
           )
        )
        dbfiles
      )
      (set! *didsomething* #t)
@@ -1079,11 +1073,11 @@
                          (killed (system (conc "ssh " host " kill " pid " > /dev/null")))
                          (dummy2 (sleep 1))
                          (state (if (> (system (conc "ssh " host " ps " pid " > /dev/null")) 0) "dead" "alive"))
                             )
                          (format #t fmtstr db (conc host ":" port) pid age last-mod state)
-                         (system (conc "rm " sfile))
+                         (delete-file* sfile)
                        )
                      )
                      sinfos
                   )
                 )