--- a/Scanner.st	Thu Jul 25 16:08:35 2002 +0200
+++ b/Scanner.st	Thu Jul 25 16:14:36 2002 +0200
@@ -1533,27 +1533,23 @@
         ].
 
         (nextChar == $#) ifTrue:[
+            nextChar := source nextPeek.
             AllowDolphinExtensions == true ifTrue:[
                 "dolphin does computed literals as ##( ... )"
-                nextChar := source nextPeek.
                 nextChar == $( ifTrue:[
                     source next.    
                     token := '##('.
                     tokenType := #HashHashLeftParen.
                     ^ tokenType
                 ].
-                token := '##'.
-                tokenType := #HashHash.
-                ^ tokenType
             ].
-
-            nextChar := source nextPeek.
             nextChar == $[ ifTrue:[
                 source next.    
                 token := '##('.
                 tokenType := #HashHashLeftBrack.
                 ^ tokenType
             ].
+
             token := '##'.
             tokenType := #HashHash.
             ^ tokenType
@@ -2285,6 +2281,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.147 2002-07-25 14:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.148 2002-07-25 14:14:36 cg Exp $'
 ! !
 Scanner initialize!