$OpenBSD: patch-support_devel_sak_test_run_tcl,v 1.1 2008/05/09 19:45:18 sthen Exp $
--- support/devel/sak/test/run.tcl.pat.orig	Thu May  1 15:21:14 2008
+++ support/devel/sak/test/run.tcl	Thu May  1 15:20:56 2008
@@ -675,6 +675,7 @@ proc ::sak::test::run::SetupError {} {
 # ###
 
 proc ::sak::test::run::+= {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
@@ -684,6 +685,7 @@ proc ::sak::test::run::+= {string} {
 }
 
 proc ::sak::test::run::= {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
@@ -692,6 +694,7 @@ proc ::sak::test::run::= {string} {
 }
 
 proc ::sak::test::run::=| {string} {
+return
     variable araw
     if {$araw} return
     variable aprefix
