--- a/HTMLDocGenerator.st	Thu May 24 14:57:33 2018 +0200
+++ b/HTMLDocGenerator.st	Fri May 25 16:14:36 2018 +0200
@@ -1995,7 +1995,10 @@
     ].
 
     (isSubres | isObsolete) ifFalse:[
-        exampleComments := self methodExampleCommentsOf:aMethod.
+        [    
+            exampleComments := self methodExampleCommentsOf:aMethod.
+        ] valueWithTimeout:10 seconds.
+        
         exampleComments notEmptyOrNil ifTrue:[
             exampleComments do:[:each |
                 |exampleCode|
@@ -2030,6 +2033,7 @@
 
     "Created: / 22-04-1996 / 20:03:30 / cg"
     "Modified: / 16-07-2017 / 11:28:18 / cg"
+    "Modified: / 25-05-2018 / 16:10:22 / Claus Gittinger"
 !
 
 printOutHTMLProtocolOf:aClass on:aStream