1 files changed, 5 insertions, 5 deletions
diff --git a/regtest.tcl b/regtest.tcl
index 68cc0d1..8e25377 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -240,11 +240,11 @@ puts "TEST 33 PASSED"
 
 # REGTEST 34
 # onexception and writable conflict
-stdout onexception {incr x}
-stdout writable {incr y}
-stdout onexception {}
-stdout writable {}
-
+set f [open [info nameofexecutable]]
+$f onexception {incr x}
+$f writable {incr y}
+$f close
+puts "TEST 34 PASSED"
 
 # TAKE THE FOLLOWING puts AS LAST LINE