Use 'InfoOutput' to get Info output stream

The current code will also work with older versions of GAP.
It will be simplified at a later stage.

Author: ChrisJefferson

init.g

@@ -10,12 +10,17 @@
 # An alternative Info handler which does not print implicit "#I " and "\n"
 BindGlobal("PlainInfoHandler",
 function ( infoclass, level, list )
-    local cl, out, s;
-    cl := InfoData.LastClass![1];
-    if IsBound(InfoData.Output[cl]) then
-      out := InfoData.Output[cl];
+    local cl, out, s, infoOutput;
+    if IsBoundGlobal("InfoOutput") then
+      infoOutput := ValueGlobal("InfoOutput");
+      out := infoOutput(infoclass);
     else
-      out := DefaultInfoOutput;
+      cl := InfoData.LastClass![1];
+      if IsBound(InfoData.Output[cl]) then
+        out := InfoData.Output[cl];
+      else
+        out := DefaultInfoOutput;
+      fi;
     fi;
     if out = "*Print*" then
       for s in list do