--- a/Tools__StoreProjectBrowser.st	Mon Sep 21 23:07:33 2009 +0200
+++ b/Tools__StoreProjectBrowser.st	Mon Sep 21 23:29:29 2009 +0200
@@ -640,20 +640,31 @@
 !StoreProjectBrowser methodsFor:'db access'!
 
 getBlob:id
-    |item cursor row blobType blobData|
+    ^ self getBlob:id withPrefix:nil
+!
+
+getBlob:id withPrefix:prefixOrNil
+    |item cursor row blobType blobData rawData|
 
     item := Set new.
     cursor := connection 
-                execute:'SELECT blobtype,blobdata FROM tw_blob where primarykey = ',id printString,';'
+                execute:('SELECT blobtype,blobdata FROM tw_blob where primarykey = %1;' bindWith:id)
                 release:false.
 
     cursor next notNil ifTrue:[
         row := cursor rowAsArray.
         blobType := (row at:1).
-        blobData := Base64Coder decode:(row at:2).
+        rawData := (row at:2).
+        blobData := Base64Coder decode:rawData.
     ].
     cursor release.
 
+    blobType < 0 ifTrue:[
+        "/ this data is a prefix...
+self halt.
+        ^ self getBlob:(blobType negated) withPrefix:blobData
+    ].
+
     blobType == 1 ifTrue:[
         "binary"
         ^ blobData
@@ -668,7 +679,7 @@
         ^ nil
     ].
 self halt.
-    ^ blobData asString
+    ^ nil
 !
 
 getBundles
@@ -1285,5 +1296,5 @@
 !StoreProjectBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.12 2009-09-21 13:57:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.13 2009-09-21 21:29:29 cg Exp $'
 ! !