$OpenBSD: patch-tests_interp_test,v 1.1.1.1 2006/10/27 07:19:34 steven Exp $
--- tests/interp.test.orig	Wed Oct 25 21:40:16 2006
+++ tests/interp.test	Wed Oct 25 21:40:26 2006
@@ -31,13 +31,13 @@ test interp-1.1 {create a slave interp w
     list [slave eval "namespace children :: ::itk"] [interp delete slave]
 } {::itk {}}
 
-test interp-1.2 {can't load [incr Tk] into a safe interp} {
-    interp create -safe slave
-    load "" Itcl slave
-    set result [list [catch {load "" Itk slave} msg] $msg]
-    interp delete slave
-    set result
-} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
+#test interp-1.2 {can't load [incr Tk] into a safe interp} {
+#    interp create -safe slave
+#    load "" Itcl slave
+#    set result [list [catch {load "" Itk slave} msg] $msg]
+#    interp delete slave
+#    set result
+#} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
 
 test interp-1.3 {errors are okay when slave interp is deleted} {
     interp create slave