--- a/HTMLDocGenerator.st	Fri Nov 04 13:45:58 2016 +0100
+++ b/HTMLDocGenerator.st	Fri Nov 04 13:47:38 2016 +0100
@@ -398,12 +398,14 @@
                 or:[ word conform:#isDigit ]].
 
     Smalltalk allClassesDo:[:eachClass |
-        |doc|
-        
-        doc := eachClass commentOrDocumentationString.
-        doc notEmptyOrNil ifTrue:[
-            kwic addLine:doc reference:eachClass ignoreCase:true.
-        ].    
+        eachClass isLoaded ifTrue:[
+            |doc|
+
+            doc := eachClass commentOrDocumentationString.
+            doc notEmptyOrNil ifTrue:[
+                kwic addLine:doc reference:eachClass ignoreCase:true.
+            ].    
+        ].
     ].
 
     "/ if we have a key like 'startWith:' in the list,