diff --git a/collects/dynext/link-unit.ss b/collects/dynext/link-unit.ss
index e9b3a94697..0e06fa0363 100644
--- a/collects/dynext/link-unit.ss
+++ b/collects/dynext/link-unit.ss
@@ -27,15 +27,17 @@
 	    (find-executable-path "ilink32.exe" #f)))
 
       (define (get-unix-linker)
-	(let ([s (case (string->symbol (path->string (system-library-subpath #f)))
+	(let ([l (case (string->symbol (path->string (system-library-subpath #f)))
                    [(sparc-solaris i386-solaris 
                                    sparc-sunos4
                                    i386-freebsd-2.x
                                    parisc-hpux
                                    i386-cygwin)
-                    "ld"]
-		   [else "cc"])])
-	  (find-executable-path s s)))
+                    '("ld")]
+		   [else '("gcc" "cc")])])
+          (ormap (lambda (s)
+                   (find-executable-path s #f))
+                 l)))
       
       (define (check-valid-linker-path v)
 	(unless (and (file-exists? v)