@@ -63,11 +63,11 @@
 ;;======================================================================
 
 ;; Get the transport
 (define (server:get-transport area-dat)
   (if (megatest:area-transport area-dat)
-      (megatest-area-transport area-dat)
+      (megatest:area-transport area-dat)
       (let ((ttype (string->symbol
 		    (or (args:get-arg "-transport")
 			(configf:lookup (megatest:area-configdat area-dat) "server" "transport")
 			"rpc"))))
 	(megatest:area-transport-set! area-dat ttype)