Index: combobox.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/combobox.tcl,v
retrieving revision 1.31
diff -u -r1.31 combobox.tcl
--- combobox.tcl	3 Sep 2004 04:33:57 -0000	1.31
+++ combobox.tcl	20 May 2005 09:39:17 -0000
@@ -443,7 +443,7 @@
     pack $sw -fill both -expand yes
     $sw setwidget $listb
 
-    ::bind $listb <Return> "ComboBox::_select [list $path] \[%W curselection\]"
+    ::bind $listb <Return> "ComboBox::_select [list $path] \[$listb curselection\]"
     ::bind $listb <Escape>   [list ComboBox::_unmapliste $path]
     ::bind $listb <FocusOut> [list ComboBox::_focus_out $path]
 }
