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} { }
     }
 }
Index: openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	27 Nov 2012 07:24:39 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	30 Sep 2013 11:22:00 -0000	1.5.2.1
@@ -12,7 +12,7 @@
 # on whether clustering is enabled and what command is available for
 # cluster-wide flushing.
 
-if {[info command ncf.send] ne ""} {
+if {[info commands ncf.send] ne ""} {
     set flush_body {
         ncf.send util_memoize $script
     }
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.35.8.6 -r1.35.8.7
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	29 Sep 2013 12:03:22 -0000	1.35.8.6
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	30 Sep 2013 11:22:00 -0000	1.35.8.7
@@ -498,7 +498,7 @@
   # Therefore, we check first for the NaviServer built in ns_http, then 
   # if the optional xotcl-core components are available...
   #
-  if {[info command ::ns_http] ne "" && [ns_info patchlevel] > "4.99.5"} {
+  if {[info commands ::ns_http] ne "" && [ns_info patchlevel] > "4.99.5"} {
     # 
     # ... use ns_http when we have a version with the "-file" flag ...
     #
@@ -514,7 +514,7 @@
 	  ns_log notice "Transfer $url redirected to $location ..."
 	  set url $location
       }
-  } elseif {[info command ::xo::HttpRequest] ne ""} {
+  } elseif {[info commands ::xo::HttpRequest] ne ""} {
     # 
     # ... use xo::HttpRequest...
     #
Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.63.6.3 -r1.63.6.4
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	29 Sep 2013 20:24:03 -0000	1.63.6.3
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	30 Sep 2013 11:22:01 -0000	1.63.6.4
@@ -845,7 +845,7 @@
                         lappend form_command $flag
                         set af_type(${form_name}__$element_name) $flag
                         if { $af_element_parameters($element_name:$flag) eq "" } {
-                            if { [info command "::template::widget::$flag"] ne "" } {
+                            if { [info commands "::template::widget::$flag"] ne "" } {
                                 lappend form_command "-widget" $flag
                             }
                         } else {
Index: openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl,v
diff -u -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl	10 Jan 2007 21:22:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/xml-2-procs.tcl	30 Sep 2013 11:22:01 -0000	1.2.10.1
@@ -114,7 +114,7 @@
 	set name parser[incr ParserCounter]
     }
 
-    if {[info command [namespace current]::$name] != {}} {
+    if {[info commands [namespace current]::$name] ne {}} {
 	return -code error "unable to create parser object \"[namespace current]::$name\" command"
     }