linker.patch

diff --git a/rts/Linker.c b/rts/Linker.c
index 7bd2e67278..6d54b60793 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -338,33 +338,33 @@ int ghciInsertSymbolTable(
            call this function again to trigger the duplicate error. */
         return 1;
     }
-
-   pathchar* archiveName = NULL;
-   debugBelch(
-      "GHC runtime linker: fatal error: I found a duplicate definition for symbol\n"
-      "   %s\n"
-      "whilst processing object file\n"
-      "   %" PATH_FMT "\n"
-      "The symbol was previously defined in\n"
-      "   %" PATH_FMT "\n"
-      "This could be caused by:\n"
-      "   * Loading two different object files which export the same symbol\n"
-      "   * Specifying the same object file twice on the GHCi command line\n"
-      "   * An incorrect `package.conf' entry, causing some object to be\n"
-      "     loaded twice.\n",
-      (char*)key,
-      obj_name,
-      pinfo->owner == NULL ? WSTR("(GHCi built-in symbols)") :
-      pinfo->owner->archiveMemberName ? archiveName = mkPath(pinfo->owner->archiveMemberName)
-      : pinfo->owner->fileName
-   );
-
-   if (archiveName)
-   {
-       stgFree(archiveName);
-       archiveName = NULL;
-   }
-   return 0;
+    return 1;
+   /* pathchar* archiveName = NULL; */
+   /* debugBelch( */
+   /*    "GHC runtime linker: fatal error: I found a duplicate definition for symbol\n" */
+   /*    "   %s\n" */
+   /*    "whilst processing object file\n" */
+   /*    "   %" PATH_FMT "\n" */
+   /*    "The symbol was previously defined in\n" */
+   /*    "   %" PATH_FMT "\n" */
+   /*    "This could be caused by:\n" */
+   /*    "   * Loading two different object files which export the same symbol\n" */
+   /*    "   * Specifying the same object file twice on the GHCi command line\n" */
+   /*    "   * An incorrect `package.conf' entry, causing some object to be\n" */
+   /*    "     loaded twice.\n", */
+   /*    (char*)key, */
+   /*    obj_name, */
+   /*    pinfo->owner == NULL ? WSTR("(GHCi built-in symbols)") : */
+   /*    pinfo->owner->archiveMemberName ? archiveName = mkPath(pinfo->owner->archiveMemberName) */
+   /*    : pinfo->owner->fileName */
+   /* ); */
+
+   /* if (archiveName) */
+   /* { */
+   /*     stgFree(archiveName); */
+   /*     archiveName = NULL; */
+   /* } */
+   /* return 0; */
 }
 
 /* -----------------------------------------------------------------------------