--- a/CompiledCode.st	Thu Aug 17 23:54:05 2000 +0200
+++ b/CompiledCode.st	Fri Aug 18 00:13:27 2000 +0200
@@ -1558,24 +1558,11 @@
     "
 
     "Modified: / 3.3.1998 / 00:02:28 / stefan"
-!
-
-resources
-    ^ nil
-
-    "Created: / 3.11.1997 / 09:09:01 / cg"
-!
-
-usedGlobals
-    "return a collection with the global names referred to by the receiver.
-     Uses Parser to parse methods source and extract them."
-
-    ^ #()
 ! !
 
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.77 2000-08-16 12:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.78 2000-08-17 22:13:27 cg Exp $'
 ! !
 CompiledCode initialize!

--- a/ExecutableFunction.st	Thu Aug 17 23:54:05 2000 +0200
+++ b/ExecutableFunction.st	Fri Aug 18 00:13:27 2000 +0200
@@ -368,21 +368,49 @@
     "Created: / 9.11.1999 / 16:58:48 / cg"
 !
 
+referencesLiteral:aLiteral
+    "return true, if this executable references the literal directly or indirectly.
+     Return false (we dont know) here, to allow alien code objects to be
+     handled by the browsers."
+
+     ^ false
+!
+
+refersToLiteral:aLiteral
+    "return true, if this executable references the literal directly.
+     Return false (we dont know) here, to allow alien code objects to be
+     handled by the browsers."
+
+     ^ false
+!
+
+resources
+    ^ nil
+
+    "Created: / 3.11.1997 / 09:09:01 / cg"
+!
+
 sends:aSelectorSymbol
-    "return true, if this method contains a message-send
-     with aSelectorSymbol as selector. 
+    "return true, if this code object contains a message-send with aSelectorSymbol as selector. 
      - due to the simple check in the literal array, also simple uses 
        of aSelectorSymbol as symbol will return true.
        Should ask compiler, if there is really a send."
 
-    ^ self referencesGlobal:aSelectorSymbol
+    ^ self referencesLiteral:aSelectorSymbol
 
     "Created: 16.4.1996 / 16:35:53 / cg"
+!
+
+usedGlobals
+    "return a collection with the global names referred to by the receiver.
+     Uses Parser to parse methods source and extract them."
+
+    ^ #()
 ! !
 
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.41 2000-07-11 23:07:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.42 2000-08-17 22:13:19 cg Exp $'
 ! !
 ExecutableFunction initialize!