--- a/modules/symbols.tp	Mon Jul 14 09:29:49 2014 -0700
+++ b/modules/symbols.tp	Mon Jul 14 09:30:31 2014 -0700
@@ -53,11 +53,17 @@
 		buildMethodTable <- :tree {
 			_object <- ast obj
 			_assignment <- ast assignment
+			_call <- ast call
+
 			tree fold: table with: :acc el {
 				if: (el nodeType) = _object {
 					(el messages) fold: acc with: :acc msg {
 						if: (msg nodeType) = _assignment {
 							acc defineMethod: ((msg to) name)
+						} else: {
+							if: (msg nodeType) = _call && (msg llMessage?) {
+								acc defineMethod: (((msg args) value) name)
+							}
 						}
 						acc
 					}