Index: tolbase/lib/toltk/tolmethods.tcl
===================================================================
--- tolbase/lib/toltk/tolmethods.tcl	(revision 0bb1f944a91948e957b05a32dbda3e84119b3546)
+++ tolbase/lib/toltk/tolmethods.tcl	(revision e4cddd7d40b9f97e9c93d92a220b43a7a25daa13)
@@ -218,12 +218,10 @@
 
   # name
-  if {[llength $source] > 1} {
-    set nameSerie [lindex [::tol::info variable $source] 1]
-  } else {
-    set nameSerie $source
-  }  
+  set objRef [ list "Serie" $source ]
+  set nameSerie [lindex [::tol::info variable $objRef] 1]
+  
   #title
   if { ![llength $title] } {
-    set title "[mc "Autocorrelation graph"]: $nameSerie"
+    set title "[mc {Autocorrelation graph}]: $nameSerie"
   }
   # create
@@ -237,5 +235,5 @@
   set tlf [$tl getframe]
   # configuration
-  ::AutocorGraph::Create $tlf.g $source
+  ::AutocorGraph::Create $tlf.g $objRef
   $tl bind <Control-F4> "$tl kill; break"
   pack $tlf.g -fill both -expand yes