Index: tests/entry.test
==================================================================
--- tests/entry.test
+++ tests/entry.test
@@ -740,11 +740,11 @@
     list [.e bbox 3] [.e bbox end]
 } -cleanup {
     destroy .e
 } -result {{19 5 7 13} {19 5 7 13}}
 test entry-3.7 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e ; update idletasks
     update
 } -body {
@@ -753,11 +753,11 @@
     .e bbox end
 } -cleanup {
     destroy .e
 } -result {19 5 12 13}
 test entry-3.8 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e ; update idletasks
     update
 } -body {
@@ -776,11 +776,11 @@
     .e bbox end
 } -cleanup {
     destroy .e
 } -result "5 5 0 $cy"
 test entry-3.10 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e ; update idletasks
     update
 } -body {

Index: tests/spinbox.test
==================================================================
--- tests/spinbox.test
+++ tests/spinbox.test
@@ -9,12 +9,10 @@
 package require tcltest 2.2
 namespace import ::tcltest::*
 eval tcltest::configure $argv
 tcltest::loadTestedCommands
 
-testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
-
 # For xscrollcommand
 set scrollInfo {}
 proc scroll args {
         global scrollInfo
         set scrollInfo $args
@@ -1080,11 +1078,11 @@
     list [.e bbox 3] [.e bbox end]
 } -cleanup {
     destroy .e
 } -result {{19 5 7 13} {19 5 7 13}}
 test spinbox-3.7 {SpinboxWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     spinbox .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e
     update
 } -body {
@@ -1093,11 +1091,11 @@
     .e bbox end
 } -cleanup {
     destroy .e
 } -result {19 5 12 13}
 test spinbox-3.8 {SpinboxWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     spinbox .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e
     update
 } -body {
@@ -1116,11 +1114,11 @@
     .e bbox end
 } -cleanup {
     destroy .e
 } -result "5 5 0 $cy"
 test spinbox-3.10 {SpinboxWidgetCmd procedure, "bbox" widget command} -constraints {
-	fonts failsOnXQuarz
+	fonts
 } -setup {
     spinbox .e -font {Courier -12} -borderwidth 2 -highlightthickness 2
     pack .e
     update
 } -body {