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 -r1.1 -r1.1.28.1
--- openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl	12 Apr 2001 16:58:18 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/10-charset-compat-procs.tcl	30 Sep 2013 11:22:00 -0000	1.1.28.1
@@ -11,7 +11,7 @@
 set compat_procs [list ns_startcontent ns_encodingfortype]
 
 foreach one_proc $compat_procs {
-    if {[llength [info command $one_proc]] == 0} {
+    if {[llength [info commands $one_proc]] == 0} {
 	proc $one_proc {args} { }
     }
 }