@@ -127,11 +127,11 @@
 	       (res     (if (vector? dat) (vector-ref dat 1) #f)))
 	  (if (vector? connection-info)(http-transport:server-dat-update-last-access connection-info))
 	  (if success
 	      (begin
 		;; (mutex-unlock! *send-receive-mutex*)
-		(case 
+		(case transport-type 
 		  ((http) res) ;; (db:string->obj res))
 		  ((nmsg) res))) ;; (vector-ref res 1)))
 	      (begin ;; let ((new-connection-info (client:setup run-id)))
 		(debug:print 0 "WARNING: Communication failed, trying call to rmt:send-receive again.")
 		;; (case *transport-type*
@@ -165,16 +165,16 @@
 		    (tasks:start-and-wait-for-server (db:delay-if-busy (tasks:open-db area-dat)) run-id 10)
 		    (thread-sleep! (random 5)) ;; give some time to settle and minimize collison?
 		    (rmt:send-receive cmd rid params area-dat attemptnum: (+ attemptnum 1)))
 		  (begin
 		    (server:kind-run run-id area-dat)
-		    (rmt:open-qry-close-locally cmd run-id area-dat params area-dat))))
+		    (rmt:open-qry-close-locally cmd run-id area-dat params))))
 	    (begin
 	      ;; (debug:print 0 "ERROR: Communication failed!")
 	      ;; (mutex-unlock! *send-receive-mutex*)
 	      ;; (exit)
-	      (rmt:open-qry-close-locally cmd run-id area-dat params area-dat)
+	      (rmt:open-qry-close-locally cmd run-id area-dat params)
 	      )))))
 
 (define (rmt:update-db-stats run-id rawcmd params duration)
   (mutex-lock! *db-stats-mutex*)
   (handle-exceptions
@@ -305,11 +305,11 @@
 ;;======================================================================
 
 (define (rmt:kill-server run-id)
   (rmt:send-receive 'kill-server run-id (list run-id) area-dat))
 
-(define (rmt:start-server run-id)
+(define (rmt:start-server run-id area-dat)
   (rmt:send-receive 'start-server 0 (list run-id) area-dat))
 
 ;;======================================================================
 ;;  M I S C
 ;;======================================================================