--- a/ProjectDefinition.st	Mon Nov 27 19:20:23 2006 +0100
+++ b/ProjectDefinition.st	Mon Nov 27 20:55:52 2006 +0100
@@ -3488,6 +3488,9 @@
 !
 
 hasAllExtensionsLoaded
+    "answer true, if all extensions of this package have been loaded.
+     This is a query - so no side effects please"
+
     self extensionMethodNames pairWiseDo:[:className :selector |
         |cls|
 
@@ -3496,8 +3499,8 @@
             Transcript showCR:(self name,' missing extension class "',className,'".').
             ^ false 
         ].
-        cls autoload.
-        (cls compiledMethodAt:selector) isNil ifTrue:[
+        "there is no possibility that we installed an extension method in an unloaded class"
+        (cls isLoaded not or:[(cls compiledMethodAt:selector) isNil]) ifTrue:[
             Transcript showCR:(self name,' missing extension method "',className,'>>',selector,'".').
             ^ false 
         ].
@@ -3621,7 +3624,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.123 2006-11-27 17:46:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.124 2006-11-27 19:55:52 stefan Exp $'
 ! !
 
 ProjectDefinition initialize!