diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 2400529a8f..9ce171a197 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2088,10 +2088,10 @@ implementation
                                  begin
                                    p2:=parse_paras(false,true,_RKLAMMER);
                                    consume(_RKLAMMER);
-                                   p1:=translate_disp_call(p1,p2,dispatchstring);
                                  end
                                else
                                  p2:=nil;
+                               p1:=translate_disp_call(p1,p2,dispatchstring);
                              end
                            else { Error }
                              Consume(_ID);