--- a/AbstractFileBrowser.st	Fri Jun 05 11:08:28 2009 +0200
+++ b/AbstractFileBrowser.st	Fri Jun 05 15:21:07 2009 +0200
@@ -5844,9 +5844,8 @@
             data := fn contentsAsString.
             hash := SHA1Stream hashValueOf:data.
 
-            signature := Expecco::KeyFile
-                signExpeccoCode:hash 
-                with:(Expecco::KeyFileGenerator expeccoCodeSigningCertificate).
+            signature := Expecco::KeyFileGenerator new signExpeccoCode:hash.
+
             signatureFile := fn withSuffix:'sig'.
             signatureFile contents:signature.
         ].
@@ -7800,5 +7799,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.407 2009-06-05 09:08:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.408 2009-06-05 13:21:07 cg Exp $'
 ! !