--- a/Scanner.st	Wed Aug 23 15:29:58 2000 +0200
+++ b/Scanner.st	Wed Aug 23 17:15:22 2000 +0200
@@ -1389,7 +1389,7 @@
                 ${ xx-xx-xx-xx-...-xx }     StAgents UUID
                 ${ URL }                    url object qualifier
             "
-            allowQualifiedNames ifTrue:[
+            self allowQualifiedNames ifTrue:[
                 "VW3 and later supports QualifiedNames as #{ id ... id }"
                 source next.
                 token := '#{'.
@@ -2117,6 +2117,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.120 2000-08-23 13:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.121 2000-08-23 15:15:22 cg Exp $'
 ! !
 Scanner initialize!