Index: run/JvInterpreter.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvInterpreter.pas,v
retrieving revision 1.72
diff -u -r1.72 JvInterpreter.pas
--- run/JvInterpreter.pas	20 Mar 2006 11:59:57 -0000	1.72
+++ run/JvInterpreter.pas	21 Mar 2006 07:28:47 -0000
@@ -5381,7 +5381,7 @@
             NextToken;
           end;
         ttRB:
-          if TVarData(Result).VType = varEmpty then
+          if (TVarData(Result).VType = varEmpty) and (FprevTTyp<>ttIdentifier) then
             ErrorExpected(LoadStr2(irExpression))
           else
             Exit;
@@ -5394,12 +5394,12 @@
             NextToken;
           end;
         ttRS:
-          if TVarData(Result).VType = varEmpty then
+          if (TVarData(Result).VType = varEmpty) and (FprevTTyp<>ttIdentifier) then
             ErrorExpected(LoadStr2(irExpression))
           else
             Exit;
       else
-        if TVarData(Result).VType = varEmpty then
+        if (TVarData(Result).VType = varEmpty) and (FprevTTyp<>ttIdentifier) then
           ErrorExpected(LoadStr2(irExpression))
         else
           Exit;