wip

[ypp-sc-tools.web-live.git] / pctb / show-thing.tcl

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index 3d42218619359f68e864dc72c2923a880d415ff0..c0182238557b3dd5e64c5c020d5e8d4d4756393a 100755 (executable)
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -406,7 +406,7 @@ proc RETURN_RESULT {how what} {
     helptext {{{ Processing }}}
     unbind_all_keys
     update idletasks
-    puts "$how $what"
+    puts stderr "$how $what"
     eval update_database/$how $what
     exec kill -STOP [pid]
     fileevent stdin readable required
@@ -444,7 +444,7 @@ proc required {} {
     init_widgets
     manyset [lrange $l 0 3] unk_l unk_r unk_context
     set glyphsdone [lrange $l 3 end]
-    puts "SHOW-THING GOT $l"
+    puts stderr "SHOW-THING GOT $l"
 
     fileevent stdin readable {}