diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs
index 5f68ba6284..0afe3cb19d 100644
--- a/Assistant/TransferQueue.hs
+++ b/Assistant/TransferQueue.hs
@@ -138,7 +138,7 @@ enqueue reason schedule t info
 		q <- getAssistant transferQueue
 		liftIO $ atomically $ do
 			l <- readTVar (queuelist q)
-			if (new `notElem` l)
+			if (t `notElem` map fst l)
 				then do	
 					void $ modifyTVar' (queuesize q) succ
 					void $ modifyTVar' (queuelist q) modlist