Index: tolbase/lib/toltk/tolmethods.tcl
===================================================================
--- tolbase/lib/toltk/tolmethods.tcl	(revision 52df1b162a907fd1fea67ee706cb4977481a4643)
+++ tolbase/lib/toltk/tolmethods.tcl	(revision 0bb1f944a91948e957b05a32dbda3e84119b3546)
@@ -167,9 +167,9 @@
   set lstSerie {}    
   switch $namGra {
-    Serie   { set lstSerie $source }
+    Serie   { set lstSerie [ list [ list Serie $source ] ] }
     Set     {
       set nsource [lindex [TclGetVar Set $source] 0]
       for {set i 1} {$i <= $nsource} {incr i} {
-        lappend lstSerie "$source $i"
+        lappend lstSerie [list Set $source $i ]
       }
     }
@@ -349,6 +349,8 @@
   if {[llength $set] > 1} {
     set nameSet [lindex [::tol::info variable $set] 1]
+    set setref $set
   } else {
     set nameSet $set
+    set setref [ list Set $set ]
   }
   
@@ -358,5 +360,5 @@
 
   set tl {}
-  if {![catch {::tol::tableset create $setgrp $set}]} {
+  if { ![ catch { ::tol::tableset create $setgrp $setref } ] } {
     # create
     set tl [::project::CreateForm \