@@ -72,11 +72,11 @@
                     "http"))))
     (set! *transport-type* ttype)
     ttype))
 
 ;; Get the transport  -- DO NOT call this from client code.  In client code, this is run-id sensitive and not a global
-
+;;   For code communicating with existing run-id with a server, use: (rmt:run-id->transport-type run-id)
  (define (server:get-transport)
    (if *transport-type*
        *transport-type*
        (server:set-transport)))
 
@@ -194,18 +194,20 @@
 	;; note: client:start will set *runremote*. this needs to be changed
 	;;       also, client:start will login to the server, also need to change that.
 	;;
 	;; client:start returns #t if login was successful.
 	;;
-	(let ((res (case *transport-type*
+	(let* ((transport-type (rmt:run-id->transport-type run-id))
+               (res (case transport-type
 		     ((http)(server:ping-server run-id 
 						(tasks:hostinfo-get-interface server)
 						(tasks:hostinfo-get-port      server)))
-		     ;; ((nmsg)(nmsg-transport:ping (tasks:hostinfo-get-interface server)
-		     ;;    			 (tasks:hostinfo-get-port      server)
-		     ;;    			 timeout: 2))
-                     )))
+                     (else  
+                      (debug:print-error 0 *default-log-port* "(5) Transport [" transport-type
+                                         "] specified for run-id [" run-id
+                                         "] is not implemented in rmt:send-receive.  Cannot proceed.")
+                      (exit 1)))))
 	  ;; if the server didn't respond we must remove the record
 	  (if res
 	      #t
 	      (begin
 		(debug:print-info 0 *default-log-port* "server at " server " not responding, removing record")