explicitly check if ERROR_OUTPUT is a stream object before attempting…

… to open it
gap-system · Nov 23, 2018 · afa635f · afa635f
1 parent 3eb2f2a
commit afa635f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/error.c b/src/error.c
@@ -57,7 +57,9 @@ UInt OpenErrorOutput( void )
             ret = OpenOutput(CONST_CSTR_STRING(ERROR_OUTPUT));
         }
         else {
-            ret = OpenOutputStream(ERROR_OUTPUT);
+            if (CALL_1ARGS(IsOutputStream, ERROR_OUTPUT) == True) {
+                ret = OpenOutputStream(ERROR_OUTPUT);
+            }
         }
     }