ghcilink004 fails when ghci is dynamic (it tries to load a .a file)

testsuite/tests/ghci/linking/all.T

@@ -19,7 +19,8 @@ test('ghcilink003',
      ['$MAKE -s --no-print-directory ghcilink003'])
 
 test('ghcilink004',
-     extra_clean(['dir004/*','dir004']),
+     [if_ghci_dynamic(expect_fail), # dynamic ghci can't load '.a's
+      extra_clean(['dir004/*','dir004'])],
      run_command,
      ['$MAKE -s --no-print-directory ghcilink004'])