--- a/ByteCodeCompiler.st	Mon Aug 02 13:18:10 1999 +0200
+++ b/ByteCodeCompiler.st	Mon Aug 02 13:37:07 1999 +0200
@@ -493,6 +493,9 @@
     newMethod category:cat.
     newMethod package:(Class packageQuerySignal query).
 
+    (compiler contextMustBeReturnable) ifTrue:[
+        newMethod contextMustBeReturnable:true
+    ].
     install ifTrue:[
         aClass addSelector:sel withMethod:newMethod
     ].
@@ -3220,6 +3223,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.154 1999-08-02 08:56:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.155 1999-08-02 11:37:07 cg Exp $'
 ! !
 ByteCodeCompiler initialize!