--- a/sqlscreens.tcl
+++ b/sqlscreens.tcl
@@ -204,7 +204,7 @@
      eval $ps
      uplevel #0 trace variable $varname w _sqlsclabmenutrace$f
 
-    pack $f $f.lab $f.b -side left -ipadx 1 -ipady 1
+    pack $f.lab $f.b -side left -ipadx 1 -ipady 1
     return $f
 }