diff --git a/doc/auto-doc.htm b/doc/auto-doc.htm
index 3c633f3..350eab6 100644
--- a/doc/auto-doc.htm
+++ b/doc/auto-doc.htm
@@ -198,7 +198,7 @@ Returns the byte array (vector of octets) converted using <code>QString::fromUtf
 <br><br>
 <b>QGUI (&optional process-events)</b>
 <br><br>
-Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql -qgui</code>, in order to run the Qt event loop natively.
+Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql5 -qgui</code>, in order to run the Qt event loop natively.
 <br>
 <br><br>
 <b>QID (name)</b>
diff --git a/src/eql.cpp b/src/eql.cpp
index 1ee4075..7d239f0 100644
--- a/src/eql.cpp
+++ b/src/eql.cpp
@@ -41,12 +41,8 @@ QString EQL::home() {
 
 void EQL::ignoreIOStreams() {
     // [Windows] print output would cause a gui exe to crash (without console)
-    eval("(setf *standard-output* (make-broadcast-stream)"
-         "      *trace-output*    *standard-output*"
-         "      *error-output*    *standard-output*"
-         "      *terminal-io*     (make-two-way-stream (make-string-input-stream \"\")"
-         "                                             *standard-output*))"); }
-
+    eval("(eql::ignore-io-streams)"); }
+    
 void EQL::exec(const QStringList& args) {
     cl_object s_qtpl = cl_intern(1, make_constant_base_string("*QTPL*"));
     bool exec_with_simple_restart = false;
diff --git a/src/lisp/ini.lisp b/src/lisp/ini.lisp
index f255299..75bff5d 100644
--- a/src/lisp/ini.lisp
+++ b/src/lisp/ini.lisp
@@ -292,6 +292,13 @@
             (terpri)
             (values)))))))
 
+(defun ignore-io-streams ()
+  (setf *standard-output* (make-broadcast-stream)
+        *trace-output*    *standard-output*
+        *error-output*    *standard-output*
+        *terminal-io*     (make-two-way-stream (make-string-input-stream "")
+                                               *standard-output*)))
+
 ;;; top-level / slime-mode processing Qt events (command line options "-qtpl" and "-slime")
 
 (defvar *slime-hook-file* nil)
@@ -411,7 +418,7 @@
 
 (defun qgui (&optional ev)
   "args: (&optional process-events)
-   Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql -qgui</code>, in order to run the Qt event loop natively."
+   Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql5 -qgui</code>, in order to run the Qt event loop natively."
   (let (found)
     (when (find-package :gui)
       (let ((gui (find-symbol "*GUI*" :gui)))