--- a/Lib/IMPL/SQL/Schema/Table.pm	Thu May 02 10:43:49 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Table.pm	Tue May 07 02:19:24 2013 +0400
@@ -154,7 +154,7 @@
     if (@_ == 1) {
         my ($Constraint) = @_;
         
-        die new IMPL::InvalidArgumentException('The invalid parameter') if not is($Constraint,typeof IMPL::SQL::Schema::Constraint);
+        die new IMPL::InvalidArgumentException('The invalid parameter') if not is($Constraint,'IMPL::SQL::Schema::Constraint');
         
         $Constraint->table == $this or die new IMPL::InvalidOperationException('The constaint must belong to the target table');
         
@@ -246,7 +246,7 @@
 sub SameValue {
     my ($this,$other) = @_;
     
-    return 0 unless is $other, typeof $this;
+    return 0 unless is($other, typeof($this));
     
     return 0 unless $this->name eq $other->name;
     return 0 unless $this->ColumnsCount eq $other->ColumnsCount;