diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 5cb1c9cda2a28542ad533ee7bc3e0b674bfac8ec..299ab92563b58419212e7940700670f8d0c203db 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -6178,19 +6178,21 @@ proc pdtk_pd_meters {indb outdb inclip outclip} {
 set sched_dio_off 0
 
 proc pdtk_pd_dio {red} {
-#    puts stderr [concat dio $red]
+    #puts stderr [concat dio $red]
 	global pd_nt
 	global sched_dio_off
     if {$red == 1} {
+		#puts stderr on
+		after cancel $sched_dio_off
+		set sched_dio_off [after 1000 pdtk_pd_dio 0]
 		if {[info tclversion] >= 8.5 && $pd_nt == 0} {
 			.controls.dio configure -style IOErrorOn.TButton
 		} else {
 	        .controls.dio configure -background red -activebackground red
 		}
-		set current_window $tkcanvas
-		after cancel $sched_dio_off	
-		set sched_dio_off [after 1000 pdtk_pd_dio 0]
+		set current_window $tkcanvas	
     } else {
+		#puts stderr off
 		if {[info tclversion] >= 8.5 && $pd_nt == 0} {
 			.controls.dio configure -style IOErrorOff.TButton
 		} else {