--- a/CompiledCode.st	Wed Aug 19 12:54:40 1998 +0200
+++ b/CompiledCode.st	Wed Aug 19 15:26:56 1998 +0200
@@ -1254,7 +1254,15 @@
 referencesLiteral:aLiteral
     "return true, if this method references the given literal."
 
-    ^ (self literalsDetect:[:lit| lit == aLiteral] ifNone:[false]) ~~ false.
+    |lit|
+
+    lit := aLiteral.
+    aLiteral isAssociation ifTrue:[
+        "/ for ST80 compatibility (where variableBindings are used ...)
+        lit := lit key
+    ].
+
+    ^ (self literalsDetect:[:mthdLit| mthdLit == lit] ifNone:[false]) ~~ false.
 
     "
      (CompiledCode compiledMethodAt:#referencesLiteral:) referencesGlobal:#literalsDetect:ifNone:
@@ -1274,6 +1282,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.64 1998-07-20 12:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.65 1998-08-19 13:26:56 cg Exp $'
 ! !
 CompiledCode initialize!