Index: toltcl/tests/tableset.tcl
===================================================================
--- toltcl/tests/tableset.tcl	(revision 1b5b24e974d86af9fe62a4722f3cb84c5cff2d2a)
+++ toltcl/tests/tableset.tcl	(revision 6d7779d88a35f4606432b88f2eceba8b66c4516b)
@@ -18,5 +18,5 @@
 proc TestWrong { } {
   #no puede crear el comando
-  tol::tableset create tblset {Set AllLinear}
+  tol::tableset create tblset AllLinear
   tol::tableset destroy tblset 
 }
@@ -28,5 +28,5 @@
 proc TestWrong1 { } {
   #
-  tol::tableset create tblset {Set AxisDatingList}
+  tol::tableset create tblset AxisDatingList
   puts "Da como resultado [tblset info datarows] filas, en realidad son 10"
   puts "Vamos a imprimir todo el contenido del conjunto"
@@ -49,5 +49,5 @@
   puts "Testing: Generic Header ..."
   tol::console eval {Set setGenHead = [[ [[1,2,3]], [[2,4]], [[6,7,8]] ]]; }
-  tol::tableset create tblset {Set setGenHead}
+  tol::tableset create tblset setGenHead
   # test the results
   set header_type [tblset info header]
@@ -84,5 +84,5 @@
   tol::console eval {Struct STR { Real RealField; Text TextField };}
   tol::console eval {Set SET = [[ STR(1,"value1"), STR(2,"value2") ]];}
-  tol::tableset create tblset {Set SET}
+  tol::tableset create tblset SET
   # test the results
   set header_type [tblset info header]
@@ -118,5 +118,5 @@
   tol::console eval {Set setGenHead = \
 			 [[ [["A","B","C"]], [[1,2,3]], [[2,4]], [[6,7,8]] ]]; }
-  tol::tableset create tblset {Set setGenHead}
+  tol::tableset create tblset setGenHead
   # test the results
   set header_type [tblset info header]
@@ -151,5 +151,5 @@
   puts "Testing set with real content ..."
   tol::console eval {Set realSet = [[ [[1,?,3,5,6]], [[4,Real(1/0),?]], [[7,Real(-1/0),9,7]] ]];}
-  tol::tableset create tblset {Set realSet}
+  tol::tableset create tblset realSet
   puts [tblset info columns]
   puts [tblset data column 0]
@@ -173,5 +173,5 @@
   puts "Testing set with date content ..."
   tol::console eval {Set dteSet = [[ [["Date1", "Date2"]], [[y1999,y2000]], [[y2001,y2002]] ]];}
-  tol::tableset create tblset {Set dteSet}
+  tol::tableset create tblset dteSet
   puts [tblset info columns]
   puts [tblset data column 0]
@@ -195,5 +195,5 @@
 				     [[1,      y2000,   "aaa"]],
 				     [[2,      y2001,   "bbb"]] ]];}
-  tol::tableset create tblset {Set mixSet}
+  tol::tableset create tblset mixSet
   puts [tblset info columns]
   puts [tblset data column 0]
@@ -219,5 +219,5 @@
 				     [[1,          y2000,   "aaa", "kkk"]],
 				     [[y2002,      "aaa",   "bbb"]] ]];}
-  tol::tableset create tblset {Set mixSet}
+  tol::tableset create tblset mixSet
   puts "Header info : [tblset info header]"
   puts [tblset info columns]
@@ -243,5 +243,5 @@
 				      [[11,11.5, 4   ]],
 				      [[12,12.5, 7, 8]] ]]; }
-  tol::tableset create tblset {Set __error}
+  tol::tableset create tblset __error
   tol::tableset destroy tblset
 }
@@ -251,18 +251,7 @@
   tol::console eval {Set s1 = [[row1]];}
   
-  tol::tableset create tbl {Set s1}
+  tol::tableset create tbl s1
   puts [tbl info columns]
   tol::tableset destroy tbl
   tol::console stack release s1 row1
 }
-
-proc Test_Ticket1450 { } {
-  tol::console eval {
-    Set s2 = BinGroup("|", For(1, 4, Set (Real i) {
-      Set For(1, 10, Set (Real j) {
-        [[j, If(i==j, ?, i+j)]]
-      })
-    }));
-  }
-  tol::tableset create tbls2 {Set s2}
-}