--- a/ChangesBrowser.st Wed Apr 20 18:27:53 2005 +0200
+++ b/ChangesBrowser.st Wed Apr 20 18:33:23 2005 +0200
@@ -1525,7 +1525,12 @@
].
answer == true ifTrue:[
- ^ cls autoload isLoaded
+ Autoload autoloadFailedSignal handle:[:ex |
+ AbortOperationRequest raise.
+ ^ false
+ ] do:[
+ ^ cls autoload isLoaded
+ ]
].
answer isNil ifTrue:[
@@ -5658,5 +5663,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.329 2005-04-18 11:41:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.330 2005-04-20 16:33:23 cg Exp $'
! !