Index: openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl	22 Dec 2017 14:14:20 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl	11 Jun 2019 18:55:08 -0000	1.4.2.1
@@ -1,18 +1,19 @@
 ad_library {
-    
+
     Compatibility procs in case we're not running a version of AOLServer that supports charsets.
-    
+
     @author Rob Mayoff [mayoff@arsdigita.com]
     @author Nada Amin [namin@arsdigita.com]
     @creation-date June 28, 2000
     @cvs-id $Id$
 }
 
-set compat_procs [list ns_startcontent ns_encodingfortype]
-
-foreach one_proc $compat_procs {
-    if {[llength [info commands $one_proc]] == 0} {
-	proc $one_proc {args} { }
+#
+# Define dummy stubs in case the required commands are not available.
+#
+foreach one_proc {ns_startcontent ns_encodingfortype} {
+    if {[info commands $one_proc] eq ""} {
+        proc $one_proc {args} { }
     }
 }