diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4ea7d5607a..ab3fbf68ab 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,16 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-09-30 10:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/include/hbtrace.h
+  * harbour/src/common/hbtrace.c
+    + added new C function:
+         int hb_tracesysout( int new_sysout )
+
+  * harbour/src/rtl/trace.c
+    + added new PRG function:
+         HB_TRACESYSOUT( [ <nSysOut> | <lSysOut> ] ) -> <lPrevSysOut>
+
 2010-09-30 01:34 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbqt/qtgui/g/TQFormLayout.prg
   * contrib/hbqt/qtgui/g/TQGraphicsItem.prg
@@ -446,7 +456,7 @@
 
   * harbour/src/rtl/trace.c
     + added new PRG functions:
-         HB_TRACEFLUSH( [ <nFlush> | <lFlush> ] ) -> <lPrevFlush>
+         HB_TRACESYSOUT( [ <nFlush> | <lFlush> ] ) -> <lPrevFlush>
          HB_TRACEFILE( <cFileName> ) -> <lSetCorrectly>
     * modified PRG function HB_TRACESTATE() to accept logical value as
       parameter and return logical value as reult:
diff --git a/harbour/include/hbtrace.h b/harbour/include/hbtrace.h
index 3f84b63999..41c66a61b4 100644
--- a/harbour/include/hbtrace.h
+++ b/harbour/include/hbtrace.h
@@ -221,6 +221,7 @@ HB_TRACEINFO, * PHB_TRACEINFO;
 extern HB_EXPORT int       hb_tracestate( int new_state );
 extern HB_EXPORT int       hb_tracelevel( int new_level );
 extern HB_EXPORT int       hb_traceflush( int new_flush );
+extern HB_EXPORT int       hb_tracesysout( int new_sysout );
 extern HB_EXPORT HB_BOOL   hb_tracefile( const char * szFile );
 
 extern HB_EXPORT void      hb_tracelog( int level, const char * file, int line, const char * proc, const char * fmt, ... ) HB_PRINTF_FORMAT( 5, 6 );
diff --git a/harbour/src/common/hbtrace.c b/harbour/src/common/hbtrace.c
index 2137e4b623..c5e412cc25 100644
--- a/harbour/src/common/hbtrace.c
+++ b/harbour/src/common/hbtrace.c
@@ -146,6 +146,17 @@ int hb_traceflush( int new_flush )
    return old_flush;
 }
 
+int hb_tracesysout( int new_sysout )
+{
+   int old_sysout = s_sysout;
+
+   if( new_sysout == 0 ||
+       new_sysout == 1 )
+      s_sysout = new_sysout;
+
+   return old_sysout;
+}
+
 int hb_tr_level( void )
 {
    if( s_level == -1 )
diff --git a/harbour/src/rtl/trace.c b/harbour/src/rtl/trace.c
index 1ae0e0ce17..dedefefbee 100644
--- a/harbour/src/rtl/trace.c
+++ b/harbour/src/rtl/trace.c
@@ -91,6 +91,12 @@ HB_FUNC( HB_TRACESTATE )
                                            hb_parnidef( 1, -1 ) ) );
 }
 
+HB_FUNC( HB_TRACESYSOUT )
+{
+   hb_retl( hb_tracesysout( HB_ISLOG( 1 ) ? hb_parl( 1 ) :
+                                            hb_parnidef( 1, -1 ) ) );
+}
+
 HB_FUNC( HB_TRACEFLUSH )
 {
    hb_retl( hb_traceflush( HB_ISLOG( 1 ) ? hb_parl( 1 ) :