--- a/SmallSense__Manager.st	Mon Sep 30 14:19:24 2013 +0100
+++ b/SmallSense__Manager.st	Tue Oct 01 09:38:56 2013 +0100
@@ -165,26 +165,29 @@
 
 delayedUpdateInfoForClass: class
 
-    | superclass info instVarNames instVarTypes |
+    | superclass info instVarNames instVarTypes nprobed |
 
     superclass := class superclass.
     superclass notNil ifTrue:[self updateInfoForClass: superclass].
     info := self infoForClass: class.
     instVarNames := class allInstVarNames.
     instVarTypes := instVarNames collect: [:instvar | info infoForInstvar: instvar ]. 
+    class methodsDo:[:mthd|updater add:mthd].
 
+    nprobed := 0.
     class allInstancesDo: [:instance |
-        1 to: instVarNames size do:[:i|
-            | instVarType |
-
-            instVarType := instVarTypes at:i.
+        instVarTypes withIndexDo: [:instVarType :i | 
             instVarType union: ((Type withClass: (instance instVarAt: i) class) type trustfullness: 70). 
         ].
+        nprobed := nprobed + 1.
+        nprobed > 100 ifTrue:[
+            "/ Probe at most 100 instancess
+            ^ self
+        ].
     ].
-    class methodsDo:[:mthd|updater add:mthd].
 
     "Created: / 27-11-2011 / 18:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-09-2013 / 13:38:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-10-2013 / 07:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 delayedUpdateInfoForClassOrMethod: classOrMethod