--- a/Tools_ProjectList.st	Tue May 20 12:36:50 2008 +0200
+++ b/Tools_ProjectList.st	Tue May 20 17:28:05 2008 +0200
@@ -438,7 +438,7 @@
 
     item canExpand ifTrue:[
         now := Timestamp now.
-        overItem := dropInfo at:#overItem ifAbsentPut:[item].
+        overItem := dropInfo at:#overItem ifAbsentPut:item.
         timeOverItem := dropInfo at:#timeOverItem ifAbsentPut:[now].
 
         overItem ~~ item ifTrue:[
@@ -827,5 +827,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.34 2007-11-07 17:20:03 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.35 2008-05-20 15:28:05 cg Exp $'
 ! !