Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.78 -r1.78.2.1
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jul 2015 09:05:10 -0000	1.78
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Aug 2015 12:46:18 -0000	1.78.2.1
@@ -956,7 +956,7 @@
   
   # search for slot
   foreach c [my info heritage] {
-    if {[info command ${c}::slot::$name] ne ""} {
+    if {[info commands ${c}::slot::$name] ne ""} {
       set slot ${c}::slot::$name
       break
     }
Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.49 -r1.49.2.1
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	27 Apr 2015 15:28:21 -0000	1.49
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	18 Aug 2015 12:46:18 -0000	1.49.2.1
@@ -522,7 +522,7 @@
     set query [::xo::cc actual_query]
     set use_h264 [expr {[string match "video/mp4*" $mime_type] && $query ne "" 
                         && ([string match {*start=[1-9]*} $query] || [string match {*end=[1-9]*} $query])
-                        && [info command h264open] ne ""}]
+                        && [info commands h264open] ne ""}]
 
     if {[info commands ns_driversection] ne ""} {
       set use_writerThread [ns_config [ns_driversection] writerthreads 0]
Index: openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	18 Sep 2007 10:21:44 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	18 Aug 2015 12:47:57 -0000	1.3.4.1
@@ -32,7 +32,7 @@
       #
       # Just update these parameters, which are defined in the throttle thread.
       #
-      if {[throttle do info command $parameter] ne ""} {
+      if {[throttle do info commands $parameter] ne ""} {
         throttle do $parameter update $value
       }
     }
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	27 Apr 2015 15:28:22 -0000	1.3
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	18 Aug 2015 12:44:35 -0000	1.3.2.1
@@ -430,8 +430,8 @@
       }
       foreach role [$s set handled_roles] {
         set role_ctx [self]-$role
-        #my msg exists?role=$role->[self]-$role->[info command [self]-$role]
-        if {[info command ${role_ctx}::[$s name]] ne ""} {
+        #my msg exists?role=$role->[self]-$role->[info commands [self]-$role]
+        if {[info commands ${role_ctx}::[$s name]] ne ""} {
           foreach a [${role_ctx}::[$s name] get_actions] {
             append result [my draw_transition $s ${role_ctx}::$a "$role:"]
           }
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.248.2.2 -r1.248.2.3
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Aug 2015 10:42:47 -0000	1.248.2.2
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Aug 2015 12:42:28 -0000	1.248.2.3
@@ -734,7 +734,7 @@
     # Search for the slot. If the slot exists, extend it's default
     # value with the new value
     foreach c [my info heritage] {
-      if {[info command ${c}::slot::$name] ne ""} {
+      if {[info commands ${c}::slot::$name] ne ""} {
         set value [concat $value [${c}::slot::$name default]]
         break
       }
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.327.2.2 -r1.327.2.3
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Aug 2015 10:42:47 -0000	1.327.2.2
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Aug 2015 12:42:28 -0000	1.327.2.3
@@ -281,7 +281,7 @@
     array set "" [$package_id item_ref -default_lang $lang -parent_id [$package_id folder_id] $formName]
     if {$(item_id) == 0} { error "cannot lookup page $formName" }
     ::xo::db::CrClass get_instance_from_db -item_id $(item_id)
-    if {[info command ::$(item_id)] eq "" 
+    if {[info commands ::$(item_id)] eq "" 
         || "::xowiki::PageTemplate" ni [$(item_id) info precedence]} {
       error "OK $formName is not suited to be used as template. Should be a Form!"
     }
Index: openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl,v
diff -u -r1.11 -r1.11.2.1
--- openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl	30 Jun 2015 09:22:44 -0000	1.11
+++ openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl	18 Aug 2015 12:42:28 -0000	1.11.2.1
@@ -311,7 +311,7 @@
         $package_id import-prototype-page categories-portlet
       }
       # perform the upgrate of 0.62 for the s5 package as well
-      if {[info command ::s5::Package] ne ""} {
+      if {[info commands ::s5::Package] ne ""} {
         foreach package_id [::s5::Package instances] {
           ::s5::Package initialize -package_id $package_id -init_url false
           # rename swf:name and image:name to file:name