--- a/LazyMethod.st	Sun Sep 03 17:19:47 2000 +0200
+++ b/LazyMethod.st	Sun Sep 03 17:21:22 2000 +0200
@@ -180,6 +180,33 @@
     ^ #()
 !
 
+messagesSent
+    "cannot ask a lazyMethod for messagesSent ..."
+
+    |m|
+
+    (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSent].
+    ^ #()
+!
+
+messagesSentToSelf
+    "cannot ask a lazyMethod for messagesSentToSelf ..."
+
+    |m|
+
+    (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSentToSelf].
+    ^ #()
+!
+
+messagesSentToSuper
+    "cannot ask a lazyMethod for messagesSentToSuper ..."
+
+    |m|
+
+    (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSentToSuper].
+    ^ #()
+!
+
 resources
     "cannot ask a lazyMethod for resources ..."
 
@@ -195,6 +222,6 @@
 !LazyMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.30 2000-08-22 13:48:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.31 2000-09-03 15:21:22 cg Exp $'
 ! !
 LazyMethod initialize!