diff --git a/lang/tcl/8.0/patches/patch-aa b/lang/tcl/8.0/patches/patch-aa
index 1a57bdd6a87..c6fc5dad6b1 100644
--- a/lang/tcl/8.0/patches/patch-aa
+++ b/lang/tcl/8.0/patches/patch-aa
@@ -19,7 +19,7 @@
  	    SHLIB_SUFFIX=".so"
  	    DL_OBJS="tclLoadDl.o"
 -	    DL_LIBS=""
-+	    case `machine` in
++	    case `arch -s` in
 +	    powerpc)
 +		    DL_LIBS="-ldl";;
 +	    *)
diff --git a/lang/tcl/8.3/patches/patch-configure b/lang/tcl/8.3/patches/patch-configure
index 7011c9a822a..3e6dd05df5b 100644
--- a/lang/tcl/8.3/patches/patch-configure
+++ b/lang/tcl/8.3/patches/patch-configure
@@ -1,6 +1,6 @@
-$OpenBSD: patch-configure,v 1.2 2001/08/04 18:10:35 pvalchev Exp $
---- configure.orig	Fri Apr  6 11:51:46 2001
-+++ configure	Fri Aug  3 22:12:29 2001
+$OpenBSD: patch-configure,v 1.3 2001/09/08 18:24:32 pvalchev Exp $
+--- configure.orig	Fri Apr  6 12:51:46 2001
++++ configure	Sat Sep  8 11:52:47 2001
 @@ -5112,13 +5112,23 @@ fi
  if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
    echo "$ac_t""yes" 1>&6
@@ -20,7 +20,7 @@ $OpenBSD: patch-configure,v 1.2 2001/08/04 18:10:35 pvalchev Exp $
  		SHLIB_SUFFIX=".so"
  		DL_OBJS="tclLoadDl.o"
 -		DL_LIBS=""
-+		case `machine` in
++		case `arch -s` in
 +		powerpc)
 +			DL_LIBS="-ldl";;
 +		*)
diff --git a/x11/tk/8.3/patches/patch-configure b/x11/tk/8.3/patches/patch-configure
index 79eaec7e3cd..7b450a37128 100644
--- a/x11/tk/8.3/patches/patch-configure
+++ b/x11/tk/8.3/patches/patch-configure
@@ -1,4 +1,4 @@
-$OpenBSD: patch-configure,v 1.2 2001/08/04 18:12:44 pvalchev Exp $
+$OpenBSD: patch-configure,v 1.3 2001/09/08 18:20:29 pvalchev Exp $
 --- configure.orig	Thu Apr  5 20:03:05 2001
 +++ configure	Fri Aug  3 23:27:46 2001
 @@ -1868,13 +1868,23 @@ fi
@@ -20,7 +20,7 @@ $OpenBSD: patch-configure,v 1.2 2001/08/04 18:12:44 pvalchev Exp $
  		SHLIB_SUFFIX=".so"
  		DL_OBJS="tclLoadDl.o"
 -		DL_LIBS=""
-+		case `machine` in
++		case `arch -s` in
 +		powerpc)
 +			DL_LIBS="-ldl";;
 +		*)