diff --git a/examples/scrollutil/BwScrollableFrmContent.tcl b/examples/scrollutil/BwScrollableFrmContent.tcl
index b33462a3..d343ee1f 100644
--- a/examples/scrollutil/BwScrollableFrmContent.tcl
+++ b/examples/scrollutil/BwScrollableFrmContent.tcl
@@ -279,7 +279,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/BwScrollableFrmDemo1.tcl b/examples/scrollutil/BwScrollableFrmDemo1.tcl
index 4015dddf..fc7c4e57 100755
--- a/examples/scrollutil/BwScrollableFrmDemo1.tcl
+++ b/examples/scrollutil/BwScrollableFrmDemo1.tcl
@@ -129,7 +129,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/ScrolledFrmContent.tcl b/examples/scrollutil/ScrolledFrmContent.tcl
index 2d14b5df..4433a906 100644
--- a/examples/scrollutil/ScrolledFrmContent.tcl
+++ b/examples/scrollutil/ScrolledFrmContent.tcl
@@ -281,7 +281,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/ScrolledFrmDemo1.tcl b/examples/scrollutil/ScrolledFrmDemo1.tcl
index 5921a22b..224619ce 100755
--- a/examples/scrollutil/ScrolledFrmDemo1.tcl
+++ b/examples/scrollutil/ScrolledFrmDemo1.tcl
@@ -124,7 +124,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/SuScrollableFrmContent.tcl b/examples/scrollutil/SuScrollableFrmContent.tcl
index 79927db0..e635842c 100644
--- a/examples/scrollutil/SuScrollableFrmContent.tcl
+++ b/examples/scrollutil/SuScrollableFrmContent.tcl
@@ -278,7 +278,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 set width [$sf cget -width]
diff --git a/examples/scrollutil/SuScrollableFrmDemo1.tcl b/examples/scrollutil/SuScrollableFrmDemo1.tcl
index 42afb17c..047d3e7e 100755
--- a/examples/scrollutil/SuScrollableFrmDemo1.tcl
+++ b/examples/scrollutil/SuScrollableFrmDemo1.tcl
@@ -115,7 +115,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 set width [$sf cget -width]