--- swaplist.tcl.orig	2008-02-04 21:24:45.348797904 +0100
+++ swaplist.tcl	2008-02-04 21:44:49.340763304 +0100
@@ -10,7 +10,7 @@
 # RCS: @(#) $Id: swaplist.tcl,v 1.5 2005/08/25 03:36:58 andreas_kupries Exp $
 
 package require Tk
-package provide swaplist 0.1
+package provide swaplist 0.2
 
 namespace eval swaplist {
     namespace export swaplist
@@ -272,7 +272,9 @@
     if {[set cur [$from curselection]] == ""} { return }
     foreach x $cur {
         set name [$from get $x]
-        $to insert [FindPos $olist [$to get 0 end] $name] $name
+        set pos [FindPos $olist [$to get 0 end] $name]
+        $to insert $pos $name
+        lappend new $pos
     }
     foreach x [lreverse $cur] { $from delete $x }
     if {[$from index end] == 0} {
