@@ -205,11 +205,11 @@
 (define (common:args-get-target #!key (split #f))
   (let* ((target  (if (args:get-arg "-reqtarg")
 		      (args:get-arg "-reqtarg")
 		      (if (args:get-arg "-target")
 			  (args:get-arg "-target")
-			  #f)))
+			  (getenv "MT_TARGET"))))
 	 (tlist   (if target (string-split target "/" #t) '()))
 	 (valid   (if target
 		      (and (not (null? tlist))
 			   (null? (filter string-null? tlist)))
 		      #f)))