--- a/Autoload.st	Fri May 12 14:35:09 1995 +0200
+++ b/Autoload.st	Tue May 16 19:09:45 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.20 1995-05-01 21:27:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.21 1995-05-16 17:05:32 claus Exp $
 '!
 
 !Autoload class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.20 1995-05-01 21:27:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.21 1995-05-16 17:05:32 claus Exp $
 "
 !
 
@@ -84,7 +84,7 @@
     ]
 ! !
 
-!Autoload class methodsFor:'signal access'!
+!Autoload class methodsFor:'Signal constants'!
 
 autoloadFailedSignal
     "return the signal raised when an autoload fails"
@@ -111,9 +111,18 @@
 
 !Autoload class methodsFor:'lazy compilation'!
 
+compileLazy
+    "return the lazy loading flag - if on, fileIn is much faster,
+     but pauses are to be expected later, since methods are compiled
+     when first executed."
+
+    ^ LazyLoading
+!
+
 compileLazy:aBoolean
     "turn on/off lazy loading - if on, fileIn is much faster,
-     but pauses are to be expected later.
+     but pauses are to be expected later, since methods are compiled
+     when first executed.
      If you like it, add a line to your startup file."
 
     LazyLoading := aBoolean
@@ -200,7 +209,7 @@
 
     self become:newClass.
     LoadedClasses rehash.
-    self initialize.  		"/ thats the new class now
+    self initialize.            "/ thats the new class now
     self postAutoload.
     ^ self  "this is now the new class - see what doesNotUnderstand: does with it"
 ! !