Index: tolbase/lib/toltk/tolmethods.tcl
===================================================================
--- tolbase/lib/toltk/tolmethods.tcl	(revision 31db565080bcb3990175948edf1fa95658e1d41f)
+++ tolbase/lib/toltk/tolmethods.tcl	(revision 6c8a66a64942b649cc4c27efee4a3e0727e208e8)
@@ -286,4 +286,5 @@
   set top [$tl getframe]
   # if source is a list is interpreted as a set name and indexes accesing a element
+  if {0} {
   if { [llength $source] > 1 } {
     set setname [GetUniqueName Set]
@@ -297,6 +298,7 @@
     set source $setname
   }
+  }
   set cmd tableset[clock clicks]
-  ::tol::tableset create $cmd $source
+  ::tol::tableset create $cmd [linsert $source 0 Set]
   set Instance [::SetGraphDialog::DrawSet $top.g $cmd $source $type $lstPairs \
     $lstNames $gcfFile [list $title]]