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.10 -r1.11
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	19 Sep 2007 13:29:55 -0000	1.10
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	8 Dec 2012 18:20:36 -0000	1.11
@@ -379,7 +379,7 @@
     if {$datatype eq "enumeration"} { 
 	return 1
     }
-    if { [empty_string_p [info procs "::template::data::validate::$datatype"]] } {
+    if { [info commands "::template::data::validate::$datatype"] eq "" } {
 	return 0
     }
     return 1