@@ -29,10 +29,17 @@
 (import rmtmod)
 (set-fn 'server:expiration-timeout server:expiration-timeout)
 (set-fn 'common:get-homehost       common:get-homehost)
 (set-fn 'server:check-if-running   server:check-if-running)
 (set-fn 'api:execute-requests      api:execute-requests)
+(set-fn 'http-transport:close-connections  http-transport:close-connections )
+(set-fn 'http-transport:client-api-send-receive http-transport:client-api-send-receive)
+(set-fn 'server:kind-run  server:kind-run)
+(set-fn 'server:start-and-wait server:start-and-wait)
+(set-fn 'server:check-if-running server:check-if-running)
+(set-fn 'server:ping server:ping )
+(set-fn 'common:force-server? common:force-server? )
 
 ;;
 ;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
 ;;
 
@@ -688,11 +695,11 @@
   (rmt:send-receive 'test-set-archive-block-id run-id (list run-id test-id archive-block-id)))
 
 (define (rmt:test-get-archive-block-info archive-block-id)
   (rmt:send-receive 'test-get-archive-block-info #f (list archive-block-id)))
 
-(set-functions http-transport:client-api-send-receive  ;; a
+#;(set-functions http-transport:client-api-send-receive  ;; a
 	       http-transport:close-connections	       ;; b
 	       api:execute-requests                    ;; c
 	       #f
 	       client:setup                            ;; e
 	       server:kind-run                         ;; f