11 files changed, 12 insertions, 12 deletions
diff --git a/Completion/User/_a2ps b/Completion/User/_a2ps
index 5fbe1990b..d7c9b68e9 100644
--- a/Completion/User/_a2ps
+++ b/Completion/User/_a2ps
@@ -7,7 +7,7 @@ if [[ "$words[1]" != "$_a2ps_cache_cmd" ]]; then
 
   _a2ps_cache_cmd="$words[1]"
 
-  descr=( "${(@)${(f@)$(LC_ALL=C $words[1] --list=features)//
+  descr=( "${(@)${(f@)$(_call features LC_ALL=C $words[1] --list=features)//
  /	}:#}" )
 
   _a2ps_cache_values=(
diff --git a/Completion/User/_archie b/Completion/User/_archie
index e1c9156fa..57a5db494 100644
--- a/Completion/User/_archie
+++ b/Completion/User/_archie
@@ -24,7 +24,7 @@ _arguments -C -s \
 
 case "$state" in
 serverhost)
-  : ${(A)archie_servers:=${(M)$(archie -L):#archie.*}}
+  : ${(A)archie_servers:=${(M)$(_call hosts archie -L):#archie.*}}
 
   _wanted hosts expl 'archie servers' && compadd "$expl[@]" -  $archie_servers
   ;;
diff --git a/Completion/User/_diff_options b/Completion/User/_diff_options
index 5cae712d3..4d994acb6 100644
--- a/Completion/User/_diff_options
+++ b/Completion/User/_diff_options
@@ -4,7 +4,7 @@ local of ofwuc ouc oss ofwy ofwg ofwl
 
 (( $+_diff_is_gnu )) || {
 	_diff_is_gnu=0;
-        [[ $(command diff -v </dev/null 2>/dev/null) == *GNU* ]] && _diff_is_gnu=1
+        [[ $(_call version diff -v </dev/null 2>/dev/null) == *GNU* ]] && _diff_is_gnu=1
 }
 
 if (( _diff_is_gnu ))
diff --git a/Completion/User/_finger b/Completion/User/_finger
index 9b5760be7..0846acf4e 100644
--- a/Completion/User/_finger
+++ b/Completion/User/_finger
@@ -4,7 +4,7 @@ local curcontext="$curcontext" state line
 typeset -A opt_args
 
 if (( ! $+_finger_args )); then
-  local help="$(finger -\? 2>&1)"
+  local help="$(_call options finger -\? 2>&1)"
   local -A optionmap
 
 ## `finger -\?':
diff --git a/Completion/User/_groups b/Completion/User/_groups
index 74efe179b..b4ecab38c 100644
--- a/Completion/User/_groups
+++ b/Completion/User/_groups
@@ -7,7 +7,7 @@ _wanted groups expl group || return 1
 if ! zstyle -a ":completion:${curcontext}:" groups groups; then
   (( $+_cache_groups )) ||
       if (( ${+commands[ypcat]} )); then
-        : ${(A)_cache_groups:=${${(s: :)$(ypcat group.byname)}%%:*}} # If you use YP
+        : ${(A)_cache_groups:=${${(s: :)$(_call groups ypcat group.byname)}%%:*}} # If you use YP
       else
         : ${(A)_cache_groups:=${${(s: :)$(</etc/group)}%%:*}}
       fi
diff --git a/Completion/User/_gs b/Completion/User/_gs
index e81611ef9..8ae5a65f9 100644
--- a/Completion/User/_gs
+++ b/Completion/User/_gs
@@ -36,7 +36,7 @@ else
       case "$IPREFIX" in
       *DEVICE\=)
         _wanted devices expl 'ghostscript device' &&
-            compadd "$expl[@]" - "${(@)${=${$(gs -h)##* devices:}%%Search path:*}:#}" && ret=0
+            compadd "$expl[@]" - "${(@)${=${$(_call devices gs -h)##* devices:}%%Search path:*}:#}" && ret=0
         ;;
       *OutputFile\=)
         _description files expl 'output file'
diff --git a/Completion/User/_killall b/Completion/User/_killall
index 05bc8e709..f305e2ef4 100644
--- a/Completion/User/_killall
+++ b/Completion/User/_killall
@@ -3,7 +3,7 @@
 if [[ "$OSTYPE" = linux* ]]; then
   _alternative \
       'signals:: _signals -p' \
-      'processes:process:{ compadd "$expl[@]" ${$(ps ho comm 2> /dev/null):#(ps|COMMAND)} }'
+      'processes:process:{ compadd "$expl[@]" ${$(_call pids ps ho comm 2> /dev/null):#(ps|COMMAND)} }'
 else
   _signals -p
 fi
diff --git a/Completion/User/_lp b/Completion/User/_lp
index d1c110b1c..51fbb1616 100644
--- a/Completion/User/_lp
+++ b/Completion/User/_lp
@@ -64,7 +64,7 @@ else
     else
       printer=()
     fi
-    list=( ${(M)"${(f@)$(lpq $printer 2> /dev/null)}":#[0-9]*} )
+    list=( ${(M)"${(f@)$(_call jobs lpq $printer 2> /dev/null)}":#[0-9]*} )
 
     if (( $#list )); then
       _tags users jobs
diff --git a/Completion/User/_telnet b/Completion/User/_telnet
index 9df23b87c..2542ff34d 100644
--- a/Completion/User/_telnet
+++ b/Completion/User/_telnet
@@ -9,7 +9,7 @@ local curcontext="$curcontext" state line expl
 typeset -A opt_args
 
 if (( ! $+_telnet_args )); then
-  local help="$(telnet -\? < /dev/null 2>&1)"
+  local help="$(_call options telnet -\? < /dev/null 2>&1)"
   local -A optionmap
   optionmap=(
     '*\[-8\]*' '-8[allow 8-Bit data]'
diff --git a/Completion/User/_users_on b/Completion/User/_users_on
index 0589e7059..f620f83c7 100644
--- a/Completion/User/_users_on
+++ b/Completion/User/_users_on
@@ -6,7 +6,7 @@ _tags users || return 1
 
 if which users >/dev/null; then
   _description users expl 'users logged on'
-  compadd "$@" "$expl[@]" - $(users) && return 0
+  compadd "$@" "$expl[@]" - $(_call users users) && return 0
 else
   # Other methods of finding out users logged on should be added here
   return 1
diff --git a/Completion/User/_yp b/Completion/User/_yp
index 1e86bf278..fe3c0a482 100644
--- a/Completion/User/_yp
+++ b/Completion/User/_yp
@@ -4,8 +4,8 @@ local curcontext="$curcontext" line state ret=1
 typeset -A opt_args
 
 if (( ! $+_yp_cache_maps )); then
-  _yp_cache_maps=( "${(@)${(@f)$(ypwhich -m)}%% *}" )
-  _yp_cache_nicks=( "${(@)${(@)${(@f)$(ypwhich -x)}#*\"}%%\"*}" )
+  _yp_cache_maps=( "${(@)${(@f)$(_call maps ypwhich -m)}%% *}" )
+  _yp_cache_nicks=( "${(@)${(@)${(@f)$(_call names ypwhich -x)}#*\"}%%\"*}" )
   _yp_args=(
     '(-x)-d[specify domain]:domain name:' \
     '(-x)-k[display keys]' \