Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	13 Apr 2007 10:23:25 -0000	1.8
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	8 Dec 2012 18:20:36 -0000	1.9
@@ -199,9 +199,7 @@
 
 } {
 
-  return [expr ![string equal \
-                  [namespace eval $namespace_name \
-                    "info procs $proc_name"] {}]]
+  return [expr {[namespace eval $namespace_name "info commands $proc_name"] ne ""}]
 }
 
 ##########################################################