--- a/Autoload.st	Tue Aug 28 11:29:42 2018 +0200
+++ b/Autoload.st	Tue Aug 28 11:30:07 2018 +0200
@@ -734,7 +734,7 @@
 
 !Autoload class methodsFor:'queries'!
 
-accepts:aSignal
+accepts:aSignalOrExceptionClass
     "redefined to avoid recursive autoload.
      (#autoload eventually raises QueryExceptions.
       These exception may send #accepts: to exception classes
@@ -745,10 +745,12 @@
     self isBeingLoaded ifFalse:[
         newClass := self autoload.
         newClass notNil ifTrue:[
-            ^ newClass accepts:aSignal
+            ^ newClass accepts:aSignalOrExceptionClass
         ].
     ].
     ^ false
+
+    "Modified (format): / 28-08-2018 / 11:15:13 / Claus Gittinger"
 !
 
 handles:anException