--- a/ProjectDefinition.st	Wed Nov 29 18:10:09 2006 +0100
+++ b/ProjectDefinition.st	Tue Dec 05 11:31:16 2006 +0100
@@ -2175,6 +2175,8 @@
      If this fails, classes are filed in, as well as classes not present
      in the class library"
 
+    thisContext isRecursive ifTrue:[^ self].
+
     (Object infoPrinting and:[Smalltalk silentLoading ~~ true]) ifTrue:[
         "/ thisContext fullPrintAll.
         Transcript showCR:'loading ', self name.
@@ -3624,7 +3626,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.126 2006-11-27 21:49:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.127 2006-12-05 10:31:16 fm Exp $'
 ! !
 
 ProjectDefinition initialize!