Index: library/lib/nx-traits.tcl
===================================================================
diff -u -rdadc7c6c6858ff3b816ff4cc585e0d76684ec374 -r31404a50d429bd67e904a70797c4f67674fab09f
--- library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision dadc7c6c6858ff3b816ff4cc585e0d76684ec374)
+++ library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision 31404a50d429bd67e904a70797c4f67674fab09f)
@@ -78,8 +78,9 @@
       $obj public alias $newName $traitMethodHandle
       # We define property inheritance for the time being only for
       # instance properties.
-      foreach d [$traitName info object slot definitions] {
-	$obj property $d
+      foreach slot [$traitName info object slots] {
+	puts "$obj - wanna define property [$slot info slot definition]"
+	#$obj property $d
       }
     }
   }