@@ -593,11 +593,14 @@
 	      (list  "MT_TARGET"    target)
 	      (list  "MT_LINKTREE"  (common:get-linktree)) ;; (configf:lookup *configdat* "setup" "linktree"))
 	      (list  "MT_TESTSUITENAME" (common:get-testsuite-name))))
           ;;(bb-check-path msg: "launch:execute post block 3")
 
-	  (if mt-bindir-path (setenv "PATH" (conc "\""(getenv "PATH")":"mt-bindir-path"\"")))
+	  (let ((tmppath (getenv "PATH")))
+	    (if (string-search tmppath " ")
+		(debug:print 0 *default-log-port* "WARNING: spaces in PATH are not supported."))
+	    (if mt-bindir-path (setenv "PATH" (conc tmppath":"mt-bindir-path))))
           ;;(bb-check-path msg: "launch:execute post block 4")
 	  ;; (change-directory top-path)
 	  ;; Can setup as client for server mode now
 	  ;; (client:setup)