--- a/Lib/IMPL/SQL/Schema/Traits.pm	Sat Apr 23 23:12:06 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/Traits.pm	Thu May 12 08:57:19 2011 +0400
@@ -58,19 +58,17 @@
 
 package IMPL::SQL::Schema::Traits::Constraint;
 use base qw(IMPL::Object::Fields);
-
+ 
 use fields qw(
 	name
-	tableName
 	columns
 );
 
 sub CTOR {
-	my ($this, $name, $tableName, $columns) = @_;
+	my ($this, $name, $columns) = @_;
 	
 	$this->{name} = $name;
-	$this->{tableName} = $tableName;
-	$$this->{columns} = $columns;
+	$$this->{columns} = $columns; # list of columnNames
 }
 
 ##################################################
@@ -108,11 +106,11 @@
 );
 
 our %CTOR = (
-	'IMPL::SQL::Schema::Traits::Constraint' => sub { @_[0..2] }
+	'IMPL::SQL::Schema::Traits::Constraint' => sub { @_[0..1] }
 );
 
 sub CTOR {
-	my ($this,$foreignTable,$foreignColumns) = @_[0,4,5];
+	my ($this,$foreignTable,$foreignColumns) = @_[0,3,4];
 	
 	$this->{foreignTable} = $foreignTable;
 	$this->{foreignColunms} = $foreignColumns;