Index: tolbase/lib/byswidget/bsersel/bsersel.tcl
===================================================================
--- tolbase/lib/byswidget/bsersel/bsersel.tcl	(revision f8287df6e3551fe7362efe3f0d838b0966c151a2)
+++ tolbase/lib/byswidget/bsersel/bsersel.tcl	(revision ceaefa511a6541fb454b9954222341bf6a0472fb)
@@ -220,5 +220,5 @@
       incr idxMag
     }
-    parray alg    
+    #parray alg    
   }
 
@@ -545,5 +545,5 @@
   #   sDi -> subdimension identifier
   #/////////////////////////////////////////////////////////////////////////////
-  #Tolcon_Trace "_fillSubDim mag=$mag, dim=$dim, sDi=$sDi"
+    #Tolcon_Trace "_fillSubDim mag=$mag, dim=$dim, sDi=$sDi"
     set type [$self _getSubDimType $mag $dim $sDi]
     switch -- $type {
@@ -577,4 +577,5 @@
   return -1
 }
+
 #/////////////////////////////////////////////////////////////////////////////
 method _fillSubDimHie {mag dim sDi trigger} {
@@ -693,5 +694,5 @@
 #   sDi -> subdimension identifier
 #/////////////////////////////////////////////////////////////////////////////
-#Tolcon_Trace "_fillSubDimUniInd mag=$mag dim=$dim, sDi=$sDi"
+#Tolcon_Trace "_fillSubDimDat mag=$mag dim=$dim, sDi=$sDi"
   set w $algwid($mag,$dim,$sDi)
   set lstReg [$self _getSubDimValues $mag $dim $sDi]
@@ -818,5 +819,5 @@
         set valCont [expr $valCont+1]
         if {$defval eq [lindex $reg 1]} {
-             set defFound $valCont
+          set defFound $valCont
         }
       }
@@ -848,5 +849,5 @@
 
     if {$defval ne ""} {
-       if {$defFound eq 1} {
+       if {$defFound ne 0} {
           $tmp($mag,$dim,$sDi) selectIndex $defFound
        }