Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -149,11 +149,11 @@
 (define (server:ping run-id host:port)
   (let* ((host-port (let ((slst (string-split   host:port ":")))
 		      (if (eq? (length slst) 2)
 			  (list (car slst)(string->number (cadr slst)))
 			  #f)))
-	 (toppath       (setup-for-run))
+	 (toppath       (launch:setup-for-run))
 	 (server-db-dat (if (not host-port)(open-run-close tasks:get-server tasks:open-db run-id) #f)))
     (if (not run-id)
 	  (begin
 	    (debug:print 0 "ERROR: must specify run-id when doing ping, -run-id n")
 	    (print "ERROR: No run-id")