Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/s5/tcl/s5-procs.tcl	7 Feb 2009 20:36:36 -0000	1.14
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	4 Apr 2018 22:00:34 -0000	1.15
@@ -198,7 +198,7 @@
       set pagenr_link "presentation?slideshow=1&pagenr=$count"
       set menu [list]
       foreach b $menu_buttons {
-	if {[info command ::xowiki::includelet::$b] eq ""} {
+	if {[info commands ::xowiki::includelet::$b] eq ""} {
 	  set b $b-item-button
 	}
         switch $b {
@@ -273,4 +273,4 @@
       return "<pre class='code'>[api_pretty_tcl [my value]]</pre>"
     }
   }
-}
\ No newline at end of file
+}
Index: openacs-4/packages/tsoap/tcl/SOAP-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsoap/tcl/SOAP-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/tsoap/tcl/SOAP-procs.tcl	29 Mar 2018 20:23:43 -0000	1.4
+++ openacs-4/packages/tsoap/tcl/SOAP-procs.tcl	4 Apr 2018 22:00:34 -0000	1.5
@@ -83,7 +83,7 @@
         set URL(scheme) "$a(scheme):$a(nid)"
     }
     set cmd [schemeloc $URL(scheme)]::$cmdname
-    if {[info command $cmd] == {}} {
+    if {[info commands $cmd] == {}} {
         set cmd {}
     }
     return $cmd
@@ -230,7 +230,7 @@
     if { $procName == "-transport" } {
         set scheme [lindex $args 0]
         set config "[schemeloc $scheme]::configure"
-        if {[info command $config] != {}} {
+        if {[info commands $config] != {}} {
             return [eval $config [lrange $args 1 end]]
         } else {
             return -code error "invalid transport:\
@@ -304,7 +304,7 @@
                 # and then call this once with all the remaining args.
                 # Still - this will work fine.
                 if {[info exists transportHook] 
-                    && [info command $transportHook] != {}} {
+                    && [info commands $transportHook] != {}} {
                     if {[catch {eval $transportHook $procVarName \
                                     [list $opt] [list $value]}]} {
                         return -code error "unknown option \"$opt\":\
@@ -326,7 +326,7 @@
     # scheme registered by SOAP::register.
     if { $procvar(transport) == {} } {
         set xferProc "[schemeloc $scheme]::xfer"
-        if {[info command $xferProc] != {}} {
+        if {[info commands $xferProc] != {}} {
             set procvar(transport) $xferProc
         } else {
             return -code error "invalid transport:\
@@ -426,7 +426,7 @@
         
         # Call any transport defined construction proc
         set createHook "[schemeloc $scheme]::method:create"
-        if {[info command $createHook] != {}} {
+        if {[info commands $createHook] != {}} {
             eval $createHook $varName $args
         }
     }