--- a/Tools__StoreProjectBrowser.st	Mon Sep 21 10:01:18 2009 +0200
+++ b/Tools__StoreProjectBrowser.st	Mon Sep 21 10:04:06 2009 +0200
@@ -674,21 +674,31 @@
 
     items := Set new.
     cursor := connection 
-                execute:'SELECT version,username,timestamp,commentid,primarykey 
-FROM ',table,' WHERE name = ''',aBundle name,''';'
+                execute:'SELECT name,version,username,timestamp,commentid,primarykey 
+                         FROM ',table,
+                         "/ ' WHERE name = ''',aBundle name,''' ',
+                         ';'
                 release:false.
 
     [cursor next notNil] whileTrue:[
-        |v|
+        |v name version username timestamp commentid primarykey|
 
         row := cursor rowAsArray.
         Transcript showCR:row.
-        v := PundleVersion new.
-        v pundle:aBundle version:(row at:1) user:(row at:2).
-        v timestampInt:(row at:3) commentId:(row at:4).
-        v id:(row at:5).
-        v isBundle:isBundle.
-        items add:v.
+        name := row at:1.
+        version := row at:2.
+        username := row at:3.
+        timestamp := row at:4.
+        commentid := row at:5.
+        primarykey := row at:6.
+        name = aBundle name ifTrue:[
+            v := PundleVersion new.
+            v pundle:aBundle version:version user:username.
+            v timestampInt:timestamp commentId:commentid.
+            v id:primarykey.
+            v isBundle:isBundle.
+            items add:v.
+        ]
     ].
     cursor release.
     ^ items asOrderedCollection sort:[:a :b| a isVersionAfter: b]
@@ -1027,5 +1037,5 @@
 !StoreProjectBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.9 2009-09-19 14:50:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.10 2009-09-21 08:04:06 cg Exp $'
 ! !