--- a/ProgramNodeBuilder.st	Fri Aug 03 22:22:20 2012 +0200
+++ b/ProgramNodeBuilder.st	Fri Aug 03 22:25:04 2012 +0200
@@ -67,7 +67,7 @@
 newLiteralValue:aConstantValue
     "return a treeNode for a literal constant"
 
-    (aConstantValue isKindOf:Association) ifTrue:[
+    aConstantValue isAssociation ifTrue:[
         "/ happens when I am used by ST/80 or VW code, which assumes that a
         "/ global is stored as association (which it is not in ST/X)
         "/ check the caller and rewrite there.
@@ -158,5 +158,5 @@
 !ProgramNodeBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ProgramNodeBuilder.st,v 1.6 2008-10-20 14:52:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ProgramNodeBuilder.st,v 1.7 2012-08-03 20:25:04 stefan Exp $'
 ! !