Use outf-error, previously called outf-console.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 16da12be0fcc4e0b4cf3f982edebce36c8d07e21..80c2d26a73012623e802fc97e3d5a1340a1f70af 100644 (file)
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -239,7 +239,7 @@ USA.
 (define (create-blinker-thread screen)
 
   (define (%trace3 . args)
-    (if %trace-blinker? (apply outf-console args)))
+    (if %trace-blinker? (apply outf-error args)))
 
   (create-thread
    #f
@@ -1689,7 +1689,7 @@ USA.
            new)))
 
     (define (%trace3 . args)
-      (if %trace-redraw? (apply outf-console (simplify args))))
+      (if %trace-redraw? (apply outf-error (simplify args))))
 
     (define (simplify args)
       (map (lambda (obj)
@@ -2161,12 +2161,12 @@ USA.
 
 (define-syntax %trace
   (syntax-rules ()
-    ((_ . ARGS) (if %trace? ((lambda () (outf-console . ARGS)))))))
+    ((_ . ARGS) (if %trace? ((lambda () (outf-error . ARGS)))))))
 
 (define %trace2? #f)
 
 (define-syntax %trace2
   (syntax-rules ()
-    ((_ . ARGS) (if %trace2? ((lambda () (outf-console . ARGS)))))))
+    ((_ . ARGS) (if %trace2? ((lambda () (outf-error . ARGS)))))))
 
 (initialize-package!)
\ No newline at end of file