$NetBSD: patch-ac,v 1.8 2000/12/17 09:39:53 hubertf Exp $

--- ../src/tkUnixInit.c.orig	Mon Sep  4 18:30:41 2000
+++ ../src/tkUnixInit.c
@@ -11,3 +11,22 @@
 #endif
         return (TCL_OK);
 }
+
+#ifdef __NetBSD__
+int
+sdr_Tcl_Eval (Tcl_Interp *interp, char *script)
+{        
+    char *copy = strdup (script);
+    int ret; 
+#ifdef __NetBSD__
+#ifdef Tcl_Eval
+#undef Tcl_Eval
+    int Tcl_Eval (Tcl_Interp *interp, char *script);
+#endif
+#endif
+    if (copy == NULL) abort();
+    ret = Tcl_Eval (interp, copy);
+    free (copy);
+    return ret;
+}       
+#endif /* __NetBSD__ */