diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 72a49b22c3..e1ffcbe86a 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -1952,7 +1952,7 @@ Implementation
              ait_import_name:
                TWasmObjData(ObjData).DeclareImportName(tai_import_name(hp));
              ait_local:
-               TWasmObjData(ObjData).DeclareLocal(tai_local(hp));
+               TWasmObjData(ObjData).DeclareLocals(tai_local(hp));
 {$endif WASM}
              else
                ;
diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index 0f40336c5e..e56c3e6d94 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -180,7 +180,7 @@ interface
         procedure DeclareExportName(en: tai_export_name);
         procedure DeclareImportModule(aim: tai_import_module);
         procedure DeclareImportName(ain: tai_import_name);
-        procedure DeclareLocal(al: tai_local);
+        procedure DeclareLocals(al: tai_local);
         procedure symbolpairdefine(akind: TSymbolPairKind;const asym, avalue: string);override;
         property FuncTypes: TWasmFuncTypeTable read FFuncTypes;
       end;
@@ -1203,7 +1203,7 @@ implementation
         ObjSymExtraData.ImportName:=ain.importname;
       end;
 
-    procedure TWasmObjData.DeclareLocal(al: tai_local);
+    procedure TWasmObjData.DeclareLocals(al: tai_local);
       var
         ObjSymExtraData: TWasmObjSymbolExtraData;
         t: TWasmBasicType;