fix respawn error handling

[chiark-tcl-applet.git] / applet.tcl

diff --git a/applet.tcl b/applet.tcl
index c3c4c4e463a437f6fc4edc1ec64f1c569bcd5057..133eb13d4ab3d0731f4dd0a155f2085068d21968 100644 (file)
--- a/applet.tcl
+++ b/applet.tcl
@@ -338,7 +338,7 @@ proc run-child {} {
        set ratelimit [lrange $ratelimit 1 end]
     }
     if {[llength $ratelimit] > 10} {
-       debug stderr "crashing repeatedly, quitting $ratelimit"
+       puts stderr "crashing repeatedly, quitting $ratelimit"
        exit 127
     }