--- a/Class.st	Wed May 08 13:06:46 2019 +0200
+++ b/Class.st	Wed May 08 13:12:23 2019 +0200
@@ -5319,10 +5319,17 @@
         ]
 
      Smalltalk allClasses 
-        select:[:cls | cls isLoaded and:[cls isNameSpace not]]
+        select:[:cls | cls isLoaded and:[cls isPrivate not and:[cls isNameSpace not]]]
         thenCollect:[:cls | cls -> cls revisionTimestamp]
     "
 
+    "classes changed within the last 2 hours:
+    
+     (Smalltalk allClasses 
+        select:[:cls | cls isLoaded and:[cls isPrivate not and:[cls isNameSpace not]]])
+        select:[:cls | cls revisionTimestamp > (Timestamp now - 2 hours)]
+    "
+
     "Created: / 08-05-2019 / 12:33:24 / Claus Gittinger"
 !