Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.73 -r1.74
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	26 Jun 2007 19:34:08 -0000	1.73
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	28 Jun 2007 13:01:07 -0000	1.74
@@ -219,14 +219,15 @@
       # TODO the following will not be needed, when we enforce xotcl 1.5.0+
       set parameters [list]
       foreach att [$o children] {
-	$att instvar attribute_name datatype pretty_name sqltype default help_text spec
+	$att instvar attribute_name datatype pretty_name sqltype default help_text spec validator
         set slot_obj [self]::slot::$attribute_name
         #my log "--cr ::xo::Attribute create $slot_obj"
         ::xo::Attribute create $slot_obj
 	if {![info exists default]} {
 	  set default ""
 	}
 	if {[info exists help_text]} {$slot_obj help_text $help_text}
+	if {[info exists validator]} {$slot_obj validator $validator}
 	if {[info exists spec]} {$slot_obj spec $spec}
         $slot_obj datatype $datatype
         $slot_obj pretty_name $pretty_name
@@ -640,7 +641,7 @@
 
   Class create Attribute -parameter {
     attribute_name datatype pretty_name {sqltype "text"}
-    default help_text spec
+    default help_text spec validator
   }
 
   Class create CrItem -parameter {