Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	10 Jan 2007 21:22:06 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	19 Sep 2007 13:29:55 -0000	1.10
@@ -66,16 +66,10 @@
     }
     
     set attr_exists_p [db_string attr_exists_p {
-	select case when exists (select 1 
-                                   from acs_attributes a
-                                  where (a.attribute_name = :attribute
-                                         or a.column_name = :attribute)
-                                    and a.object_type = :object_type)
-                    then 1
-                    else 0
-                    end
-          from dual
-    }]
+       select 1 from acs_attributes a 
+       where (a.attribute_name = :attribute or a.column_name = :attribute)
+       and a.object_type = :object_type
+    } -default 0]
 	
     if { $attr_exists_p || $convert_p eq "f" } {
 	# If the attribute exists, o