Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.472.2.15 -r1.472.2.16
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Apr 2014 06:33:15 -0000	1.472.2.15
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Apr 2014 06:37:54 -0000	1.472.2.16
@@ -245,7 +245,7 @@
   autoname proc new {-parent_id -name} {
     while {1} {
       set generated_name [my generate -parent_id $parent_id -name $name]
-      if {[::xo::db::CrClass lookup -name $generated_name -parent_id $parent_id] eq 0} {
+      if {[::xo::db::CrClass lookup -name $generated_name -parent_id $parent_id] eq "0"} {
         return $generated_name
       }
     }