Fixed alignment algorithm in create word

diff --git a/source/onward.c b/source/onward.c
index d436317dbbca3178f873cce17fd7806d5d8e42fd..5f1a2351ae3f891186bd9c369166b957d9852d1c 100755 (executable)
--- a/source/onward.c
+++ b/source/onward.c
@@ -212,9 +212,7 @@ defcode("create", create, &exec, 0u) {
     char* name = (char*)onward_aspop();
     /* Copy the name to a more permanent location */
     size_t str_size = strlen(name) + 1;
-    size_t new_size = (str_size % sizeof(value_t))
-                        ? ((str_size + (sizeof(value_t) - 1)) & ~sizeof(value_t))
-                        : str_size;
+    size_t new_size = str_size + ((sizeof(value_t) - (str_size % sizeof(value_t))) % sizeof(value_t));
     name = memcpy((void*)here, name, str_size);
     here += new_size;
     /* Start populating the word definition */