--- a/CompiledCode.st	Sun Nov 04 15:13:08 2012 +0100
+++ b/CompiledCode.st	Sun Nov 04 15:13:28 2012 +0100
@@ -327,6 +327,14 @@
     "Modified: / 30.1.1999 / 14:51:59 / cg"
 !
 
+homeMethod
+    "for common protocol with blocks: if the receiver is a method,
+     return the receiver; otherwise, if its a block, return its home
+     method."
+
+    ^ self
+!
+
 literalAt:index
     "return a literal element"
 
@@ -534,6 +542,10 @@
 
     "Modified: / 30.1.1999 / 14:55:42 / cg"
     "Created: / 30.1.1999 / 14:55:51 / cg"
+!
+
+source
+    ^ self subclassResponsibility.
 ! !
 
 !CompiledCode methodsFor:'compiler interface'!
@@ -1859,11 +1871,11 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.119 2012-11-03 16:32:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.120 2012-11-04 14:13:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.119 2012-11-03 16:32:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.120 2012-11-04 14:13:28 cg Exp $'
 !
 
 version_SVN