--- a/ByteCodeCompiler.st	Mon Feb 02 16:15:52 2015 +0100
+++ b/ByteCodeCompiler.st	Mon Feb 02 17:15:46 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 Parser subclass:#ByteCodeCompiler
 	instanceVariableNames:'codeBytes codeIndex litArray stackDelta extra lineno extraLiteral
 		maxStackDepth relocList methodTempVars numTemp maxNumTemp
@@ -2054,7 +2056,7 @@
     annotations notEmptyOrNil ifTrue:[
         newMethod annotations: annotations copy.
         (Smalltalk at: #NamespaceAwareLookup) notNil ifTrue:[
-            (annotations contains: [:annotationSpec|annotationSpec first == #namespace:])
+            (annotations contains: [:annotationSpec| (annotationSpec at:1) == #namespace:])
                 ifTrue:[newMethod lookupObject:NamespaceAwareLookup instance]
         ]
     ].
@@ -3640,11 +3642,11 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.290 2014-11-21 14:03:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.291 2015-02-02 16:15:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.290 2014-11-21 14:03:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.291 2015-02-02 16:15:46 cg Exp $'
 !
 
 version_SVN