Index: generic/predefined.xotcl
===================================================================
diff -u -r5524b83ed5dda30e55f7a02e4c22d26783688954 -red15b5be7e88cbbcdf6121f3869722dbc354d76f
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 5524b83ed5dda30e55f7a02e4c22d26783688954)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision ed15b5be7e88cbbcdf6121f3869722dbc354d76f)
@@ -327,8 +327,14 @@
     lappend methodopts required
   }
   if {[$slot exists type]} {
-    lappend objopts [$slot type]
-    lappend methodopts [$slot type]
+    set type [$slot type]
+    if {[string match ::* $type]} {
+      lappend objopts type=$type
+      lappend methodopts type=$type      
+    } else {
+      lappend objopts $type
+      lappend methodopts $type
+    }
   }
   # TODO: remove multivalued check on relations by handling multivalued
   # not in relation, but in the converters