$OpenBSD: patch-support_devel_sak_test_run_tcl,v 1.3 2011/11/04 11:45:21 stu Exp $
--- support/devel/sak/test/run.tcl.orig	Tue Jan 25 00:37:57 2011
+++ support/devel/sak/test/run.tcl	Thu Oct 13 10:37:23 2011
@@ -770,6 +770,7 @@ proc ::sak::test::run::SetupError {} {
 # ###
 
 proc ::sak::test::run::+= {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
@@ -779,6 +780,7 @@ proc ::sak::test::run::+= {string} {
 }
 
 proc ::sak::test::run::= {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
@@ -787,6 +789,7 @@ proc ::sak::test::run::= {string} {
 }
 
 proc ::sak::test::run::=| {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
